1 2 3 4 5 6 7 | isPrime :: Integer -> Bool isPrime n = all (\i -> (n `rem` i) /= 0) $ takeWhile (\i -> i^2 <= n) [2..] main :: IO () main = do n <- readLn forM_ [1..n] $ \i -> putStrLn (show (i) ++ " is a prime? " ++ show (isPrime i)) |
aXNQcmltZSA6OiBJbnRlZ2VyIC0+IEJvb2wKaXNQcmltZSBuID0gYWxsIChcaSAtPiAobiBgcmVtYCBpKSAvPSAwKSAkIHRha2VXaGlsZSAoXGkgLT4gaV4yIDw9IG4pIFsyLi5dCgptYWluIDo6IElPICgpCm1haW4gPSBkbyBuIDwtIHJlYWRMbgogICAgICAgICAgZm9yTV8gWzEuLm5dICQgXGkgLT4KICAgICAgICAgICAgICBwdXRTdHJMbiAoc2hvdyAoaSkgKysgIiBpcyBhIHByaW1lPyAiICsrIHNob3cgKGlzUHJpbWUgaSkp
[1 of 1] Compiling Main ( prog.hs, prog.o ) prog.hs:6:10: Not in scope: `forM_'
-
result: Compilation error (maybe you wish to see an example for Haskell)
20


