Name: Anonymous 2007-04-15 11:11 ID:00E9fssW
|code]isPrime x = (filter (0 ==) (map (mod x) [2..x-1])) == [][/code]
GOA> :pl \ x -> null $ filter (0 ==) $ map (mod x) [2..x-1]
null . filter (0 ==) . liftM2 map mod (enumFromTo 2 . subtract 1)