Advertisement
Guest User

Untitled

a guest
Sep 4th, 2013
145
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.10 KB | None | 0 0
  1. primes = [ x | x <- [1..], length (factor x) == 1]
  2. factor n = [x | x <- [2..n+1], n `mod` x == 0]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement