Multi-base primes: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: oops, change code to match output) |
||
Line 1,102: | Line 1,102: | ||
my(%prime_base, %max_bases, $l); |
my(%prime_base, %max_bases, $l); |
||
my $chars = |
my $chars = 5; |
||
my $upto = fromdigits( '1' . 'Z' x $chars, 36); |
my $upto = fromdigits( '1' . 'Z' x $chars, 36); |
||
my @primes = @{primes( $upto )}; |
my @primes = @{primes( $upto )}; |