17 lines
477 B
Plaintext
17 lines
477 B
Plaintext
main :: [sys_message]
|
|
main = [ Stdout (show list ++ "\n")
|
|
| list <- [take 10 eck, take 10 (drop 990 eck)]
|
|
]
|
|
|
|
eck :: [num]
|
|
eck = 0 : map item [1..]
|
|
where item n = find last (tl sofar)
|
|
where sofar = reverse (take n eck)
|
|
last = hd sofar
|
|
|
|
find :: *->[*]->num
|
|
find i = find' 1
|
|
where find' n [] = 0
|
|
find' n (a:as) = n, if a = i
|
|
= find' (n+1) as, otherwise
|