J'ai voulu proposer un petit jeu, au boulot, mais je crois que c'est allé trop loin :bababababababa:

@DarkCoinCoin

Une solution en Haskell

import Data.List (group) next :: String -> String next = concat . fmap describe . group where describe l@(c:_) = show (length l) ++ [c]

Ensuite on peut faire par exemple

take 10 $ iterate next "1"

Et ça renvoie

["1","11","21","1211","111221","312211","13112221","1113213211","31131211131221","13211311123113112211"]

Inscrivez-vous pour prendre part à la conversation
Framapiaf

Le réseau social de l'avenir : pas de publicité, pas de surveillance institutionnelle, conception éthique et décentralisation ! Gardez le contrôle de vos données avec Mastodon !