16 lines
479 B
Text
16 lines
479 B
Text
main :: [sys_message]
|
|
main = [Stdout (lay (map show squarenotcube))]
|
|
where squarenotcube = take 30 (squares $notin cubes)
|
|
|
|
squares :: [num]
|
|
squares = map (^ 2) [1..]
|
|
|
|
cubes :: [num]
|
|
cubes = map (^ 3) [1..]
|
|
|
|
|| Values in as not in bs, assuming as and bs are sorted
|
|
notin :: [num] -> [num] -> [num]
|
|
notin as [] = as
|
|
notin (a:as) (b:bs) = a:notin as (b:bs), if a < b
|
|
= notin as bs, if a = b
|
|
= notin (a:as) bs, if a > b
|