<div dir="ltr">clustersOf s =<br>        filter ((== s) . length) . map (take s) . tails<div><br></div><div>clusters_of size list =<br>        map (take size)<br>        $ map (`drop` list) [0..length list - size]<br></div><div><br></div><div>La différence est je pense principalement une question de goût. Je trouve évidemment ma version plus simple à comprendre ;)</div><div><br></div><div>Après on peut faire presque pareil comme ça:</div><div><br></div><div>clustersOf s lst = map (take s) $ take (length list - size) $ tails lst</div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">Le 23 juin 2017 à 11:03, Marc Chantreux <span dir="ltr"><<a href="mailto:khatar@phear.org" target="_blank">khatar@phear.org</a>></span> a écrit :<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">hello,<br>
<span class=""><br>
On Thu, Jun 22, 2017 at 06:04:34PM +0200, Simon Marechal wrote:<br>
> Je t'ai mis un commentaire dans ton gist avec une technique très classique<br>
> pour compter le nombre d'occurences d'éléments d'une liste.<br>
<br>
</span>merci beaucoup! je (re?)découvre l'existence de <$> (comment ai-je pu vivre<br>
sans?)<br>
<br>
premiere question qui me vient: tu proposes<br>
<br>
clustersOf s =<br>
        filter ((== s) . length) . map (take s) . tails<br>
<br>
ou j'ai écris<br>
<br>
clusters_of size list =<br>
        map (take size)<br>
        $ map (`drop` list) [0..length list - size]<br>
<br>
j'aurais tendance a préferer ma solution qui ne necessite pas de<br>
filtrage. pourrais-tu me dire ce qui te motivait en écrivant ta version?<br>
<br>
pour le reste: lecture à la prochaine pause.<br>
<div class="HOEnZb"><div class="h5"><br>
--<br>
Marc Chantreux (eiro on github and freenode)<br>
<a href="http://eiro.github.com/" rel="noreferrer" target="_blank">http://eiro.github.com/</a><br>
<a href="http://eiro.github.com/atom.xml" rel="noreferrer" target="_blank">http://eiro.github.com/atom.<wbr>xml</a><br>
"Don't believe everything you read on the Internet"<br>
    -- Abraham Lincoln<br>
______________________________<wbr>_________________<br>
Haskell-fr mailing list<br>
<a href="mailto:Haskell-fr@haskell.org">Haskell-fr@haskell.org</a><br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-fr" rel="noreferrer" target="_blank">http://mail.haskell.org/cgi-<wbr>bin/mailman/listinfo/haskell-<wbr>fr</a><br>
</div></div></blockquote></div><br></div>