Kleine, aber meiner Meinung nach, sehr schöne Lösung in Haskell:
Code:
series :: Int -> [[Int]]
series n = take (n+1) $ iterate (next) [1]
where next = concatMap (\xs -> [length xs, xs !! 0]) . group
main :: IO ()
main = let (xs0, xs1) = (take 5 xs, length . last $ xs)
in mapM_ (print) [show xs0, show xs1]
where xs = series 30 Zitat:
"[[1],[1,1],[2,1],[1,2,1,1],[1,1,1,2,2,1]]"
"5808"
|
Gruß
Felix