Sexy primes: Difference between revisions
Content added Content deleted
| Line 730: | Line 730: | ||
printf "Number of sexy prime quintuplets: %d\n Last 1 : %s\n\n" (length quins) (show $ drop (length quins -1) quins) |
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 Last 10: %s\n\n" (length unsexy) (show $ drop (length unsexy - 10) unsexy) |
printf "Number of unsexy primes: %d\n Last 10: %s\n\n" (length unsexy) (show $ drop (length unsexy - 10) unsexy) |
||
where |
where (Result pairs triplets quads quins unsexy) = foldr groups (Result [] [] [] [] []) $ takeWhile (< 1000035) primes |
||
(Result pairs triplets quads quins unsexy) = foldr groups (Result [] [] [] [] []) d |
|||
lastFive xs = show $ drop (length xs - 5) xs |
lastFive xs = show $ drop (length xs - 5) xs |
||
lastFiveText = " Last 5 : %s\n\n" |
lastFiveText = " Last 5 : %s\n\n" |
||