12 lines
361 B
Text
12 lines
361 B
Text
main :: [sys_message]
|
|
main = [Stdout (lay (take 15 (iterate looksay "1")))]
|
|
|
|
looksay :: [char]->[char]
|
|
looksay = concat . map f . split
|
|
where f xs = show (#xs) ++ [hd xs]
|
|
|
|
split :: [*]->[[*]]
|
|
split = foldr f []
|
|
where f x [] = [[x]]
|
|
f x (ys:yss) = (x:ys):yss, if x = hd ys
|
|
= [x]:ys:yss, otherwise
|