8 lines
181 B
Haskell
8 lines
181 B
Haskell
|
main :: IO ()
|
||
|
|
main = print
|
||
|
|
$ length
|
||
|
|
$ [a | a <- [0..2000],
|
||
|
|
a `mod` 2 /= 0,
|
||
|
|
a `mod` 3 /= 0,
|
||
|
|
a `mod` 5 /= 0,
|
||
|
|
a `mod` 7 == 0]
|