RosettaCodeData/Task/100-doors/Haskell/100-doors-3.hs
2017-09-25 22:28:19 +02:00

1 line
43 B
Haskell

run n = takeWhile (< n) [k*k | k <- [1..]]