Anonymous user
AKS test for primes: Difference between revisions
→{{header|Perl 6}}: list comprension no longer allowed at statementlist level
(→{{header|Perl 6}}: readability) |
(→{{header|Perl 6}}: list comprension no longer allowed at statementlist level) |
||
Line 368:
<lang perl6>constant expansions = [1], [1,-1], -> @p { [@p,0 Z- 0,@p] } ... *;
sub aks($p where 2..*) {
Testing:
<lang perl6>say ' p: (x-1)ᵖ';
Line 392:
}
print "\nPrimes up to 100:\n {
{{out}}
<pre> p: (x-1)ᵖ
| |||