Sexy primes: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (Clarify reason for change) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: bleh. fix whitespace) |
||
| Line 251: | Line 251: | ||
(so all(%primes{$i «+« (6,12) })) ?? 'triplet' !! Nil, |
(so all(%primes{$i «+« (6,12) })) ?? 'triplet' !! Nil, |
||
(so %primes{$i + 6 }) ?? 'pair' !! Nil, |
(so %primes{$i + 6 }) ?? 'pair' !! Nil, |
||
((($i >= $max - 6) && ($i + 6).is-prime)) || |
|||
(so any(%primes{$i «+« (6, -6) })) ?? 'sexy' !! 'unsexy' |
|||
).grep: *.defined |
).grep: *.defined |
||
} |
} |
||