Sequence of non-squares: Difference between revisions
m
→{{header|Haskell}}
(→{{header|Haskell}}: Dropped use of ap and LiftM2 ( used <*> ), simplified type signatures) |
|||
Line 885:
mapM_
putStrLn
[ "First 22 members of the series:"
, unwords $ (show . nonSqr) <$> [1 .. 22]
, ""
, "All first 10E6 members non square:"
, show $ all (== True) $ (notSquare . nonSqr) <$> [1 .. 1000000]
]</lang>
{{Out}}
<pre>First 22 members of the series:
2 3 5 6 7 8 10 11 12 13 14 15 17 18 19 20 21 22 23 24 26 27
| |||