Sexy primes: Difference between revisions
Content added Content deleted
Line 692: | Line 692: | ||
printf ("Number of sexy prime triplets: %d\n" ++ lastFiveText) (length triplets) (lastFive triplets) |
printf ("Number of sexy prime triplets: %d\n" ++ lastFiveText) (length triplets) (lastFive triplets) |
||
printf ("Number of sexy prime quadruplets: %d\n" ++ lastFiveText) (length quads) (lastFive quads) |
printf ("Number of sexy prime quadruplets: %d\n" ++ lastFiveText) (length quads) (lastFive quads) |
||
printf |
printf "Number of sexy prime quintuplets: %d\n Last 1 : %s\n\n" (length quins) (show $ drop (length quins -1) quins) |
||
printf "Number of unsexy primes: %d\n" $ length unsexy |
printf "Number of unsexy primes: %d\n Last 10: %s\n\n" (length unsexy) (show $ drop (length unsexy - 10) unsexy) |
||
printf " Last 10 unsexy primes: %s\n\n" $ show $ drop (length unsexy - 10) unsexy |
|||
where d = takeWhile (< 1000035) primes |
where d = takeWhile (< 1000035) primes |
||
unsexy = filter (\n -> (not $ isPrime(n+6)) && (not $ isPrime(n-6))) d |
unsexy = filter (\n -> (not $ isPrime(n+6)) && (not $ isPrime(n-6))) d |