Anonymous user
Sexy primes: Difference between revisions
m
→{{header|Haskell}}
Line 689:
main :: IO ()
main = do
printf ("Number of sexy prime pairs: %d\n"
printf ("Number of sexy prime triplets: %d\n" ++ lastFiveText) (length
printf ("Number of sexy prime
printf ("Number of sexy prime quintuplets: %d\n Last 1 : %s\n\n"
▲ printf "Number of sexy prime quintuplets: %d\n" $ length quins
printf "Number of unsexy primes: %d\n" $ length unsexy
printf " Last 10 unsexy primes: %s\n\n" $ show $ drop (length unsexy - 10) unsexy
| |||