Sexy primes: Difference between revisions
Content added Content deleted
| Line 782: | Line 782: | ||
main = do |
main = do |
||
let (pr, tt, qd, qn, un) = collectGroups primes |
let (pr, tt, qd, qn, un) = collectGroups primes |
||
printf "Number of sexy prime pairs: %d\n Last 5 : %s\n\n" (pr ^. count) (pr ^. results . to |
printf "Number of sexy prime pairs: %d\n Last 5 : %s\n\n" (pr ^. count) (pr ^. results . to display) |
||
printf "Number of sexy prime triplets: %d\n Last 5 : %s\n\n" (tt ^. count) (tt ^. results . to |
printf "Number of sexy prime triplets: %d\n Last 5 : %s\n\n" (tt ^. count) (tt ^. results . to display) |
||
printf "Number of sexy prime quadruplets: %d\n Last 5 : %s\n\n" (qd ^. count) (qd ^. results . to |
printf "Number of sexy prime quadruplets: %d\n Last 5 : %s\n\n" (qd ^. count) (qd ^. results . to display) |
||
printf "Number of sexy prime quintuplets: %d\n Last 1 : %s\n\n" (qn ^. count) (qn ^. results . to |
printf "Number of sexy prime quintuplets: %d\n Last 1 : %s\n\n" (qn ^. count) (qn ^. results . to display) |
||
printf "Number of unsexy primes: %d\n Last 10: %s\n\n" (un ^. count) (un ^. results . to |
printf "Number of unsexy primes: %d\n Last 10: %s\n\n" (un ^. count) (un ^. results . to display) |
||
where |
where |
||
collectGroups = foldl collect initialGroups . takeWhile (< 1000035) |
collectGroups = foldl collect initialGroups . takeWhile (< 1000035) |
||
display :: Show a => [a] -> String |
|||
display = show . reverse</lang> |
|||
=={{header|Java}}== |
=={{header|Java}}== |
||