pleshevskiy/mykatas
1
0
Fork 0
Code Releases Activity

feat(haskell): add prime number

Browse source
This commit is contained in:
Dmitriy Pleshevskiy 2021-11-10 10:57:16 +03:00
parent 92e07981cf
commit 2de1f283bd
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
haskell/8_prime_number.hs Normal file
View file

@ -0,0 +1,8 @@
module IsPrime where
isPrime :: Integer -> Bool
isPrime x
| x `elem` [2, 3, 5, 7] = True
| x < 2 || even x = False
| otherwise = not $ any (\n -> x `rem` n == 0) [3, 5..last]
where last = (round . sqrt . fromIntegral) x