Curzon numbers: Difference between revisions
m
→{{header|Perl}}: use the `$r` variable
(→{{header|Lambdatalk}}: adding lambdatalk task) |
m (→{{header|Perl}}: use the `$r` variable) |
||
Line 1,147:
my($n,@C) = 0;
while (++$n) {
my $r = $base * $n;
push @C, $n if powmod($base, $n, $
return @C if $cnt == @C;
}
| |||