fork download
copy 
  1. esPrimo :: Int -> Bool
  2. esPrimo n
  3.   | n < 2 = False
  4.   | otherwise = not (any (\x -> n `mod` x == 0) [2..lim])
  5.   where lim = floor (sqrt (fromIntegral n))
  6.  
  7. main :: IO ()
  8. main = do
  9.   print (esPrimo 2)   -- True
  10.   print (esPrimo 4)   -- False
  11.   print (esPrimo 13)  -- True
  12.   print (esPrimo 25)  -- False
  13.   print (esPrimo 29)  -- True
  14.  
Success #stdin #stdout 0.01s 5296KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
True
False
True
False
True
https://ideone.com/mDchZx
language:
Haskell (ghc 8.4.4)
created:
11 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!