Added 'Haskell/prime.hs'
This commit is contained in:
parent
52a3d55416
commit
81a709a7cd
13
Haskell/prime.hs
Normal file
13
Haskell/prime.hs
Normal file
@ -0,0 +1,13 @@
|
||||
isprime i = [ k | k <- [2..i-1], mod i k == 0 ] == []
|
||||
|
||||
primes = [ n | n <- [1..], isprime n ]
|
||||
|
||||
-- ###
|
||||
|
||||
allPositive l = null [ n | n <- l, n < 0]
|
||||
-- HF:
|
||||
range a b
|
||||
| a < b = [a..b]
|
||||
| a > b = [ (+) ((-) a n) 1 | n <- [b..a]]
|
||||
| otherwise = [a]
|
||||
|
Loading…
x
Reference in New Issue
Block a user