Sexy primes: Difference between revisions

m
→‎{{header|Perl 6}}: bleh. fix whitespace
(Clarify reason for change)
m (→‎{{header|Perl 6}}: bleh. fix whitespace)
Line 251:
(so all(%primes{$i «+« (6,12) })) ?? 'triplet' !! Nil,
(so %primes{$i + 6 }) ?? 'pair' !! Nil,
((($i >= $max - 6) && ($i + 6).is-prime)) ||
(so any(%primes{$i «+« (6, -6) })) ?? 'sexy' !! 'unsexy'
).grep: *.defined
}
10,343

edits