Revision as of 17:33, 1 April 2020 (view source) rosettacode>Droberts m (→‎{{header\|Haskell}}) ← Older edit		Revision as of 17:36, 1 April 2020 (view source) rosettacode>Droberts m (→‎{{header\|Haskell}}) Newer edit →
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 unsexy primes: %d\n Last 10: %s\n\n" (length unsexy) (show $ drop (length unsexy - 10) unsexy) where d(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 lastFiveText = " Last 5 : %s\n\n"

Sexy primes (view source)