Name: Anonymous 2007-04-15 11:11 ID:00E9fssW
|code]isPrime x = (filter (0 ==) (map (mod x) [2..x-1])) == [][/code]
isPrime x = divs x 2 where divs x y = if x == y then True else if mod x y == 0 then False else divs x (y + 1)