perso, je déconseille... sans grand intérêt en dehors de deux labos :aie:
perso, je déconseille... sans grand intérêt en dehors de deux labos :aie:
et comme cela ?
regroupe n = case (n) of
[k] -> [(k,1)]
x:y:t -> (x,m+1):q where x=y and (x,m):q = regroupe (x:t)
x:y:t -> (x,1):q where q = regroupe (y:t)
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.