Anonymous user
Sexy primes: Difference between revisions
m
→{{header|Haskell}}
Line 690:
main = do
printf "Number of sexy prime pairs: %d\n" $ length pairs
printf lastFiveText
printf "Number of sexy prime triplets: %d\n" $ length triplets
printf lastFiveText
printf "Number of sexy prime quadruplets: %d\n" $ length quads
printf lastFiveText
printf "Number of sexy prime quintuplets: %d\n" $ length quins
printf " Last 1 : %s\n\n"
printf "Number of unsexy primes: %d\n" $ length unsexy
printf " Last 10 unsexy primes: %s\n\n" $ show $ drop (length unsexy - 10) unsexy
Line 705:
quads = foldr (\a b -> if isPrime (a-18) && isPrime (a-12) && isPrime (a-6) then (a-18,a-12,a-6,a) : b else b) [] d
quins = foldr (\a b -> if isPrime (a-24) && isPrime (a-18) && isPrime (a-12) && isPrime (a-6) then (a-24, a-18,a-12,a-6,a) : b else b) [] d
lastFive xs = show $ drop (length xs -5) xs
lastFiveText = " Last 5 : %s\n\n"
</lang>
| |||