Numbers with prime digits whose sum is 13: Difference between revisions
Content added Content deleted
(→{{header|Pascal}}: added gmp version ~25s up to 999 on TIO.run) |
|||
Line 1,148: | Line 1,148: | ||
199 349321957098598244959032342621956 |
199 349321957098598244959032342621956 |
||
Time taken : 23 ms</pre> |
Time taken : 23 ms</pre> |
||
=={{header|Perl}}== |
|||
<lang perl>#!/usr/bin/perl |
|||
use strict; |
|||
use warnings; |
|||
my @queue = my @primedigits = ( 2, 3, 5, 7 ); |
|||
my $numbers; |
|||
while( my $n = shift @queue ) |
|||
{ |
|||
if( eval $n == 13 ) |
|||
{ |
|||
$numbers .= $n =~ tr/+//dr . " "; |
|||
} |
|||
elsif( eval $n < 13 ) |
|||
{ |
|||
push @queue, map "$n+$_", @primedigits; |
|||
} |
|||
} |
|||
print $numbers =~ s/.{1,80}\K /\n/gr;</lang> |
|||
{{out}} |
|||
<pre> |
|||
337 355 373 535 553 733 2227 2272 2335 2353 2533 2722 3235 3253 3325 3352 3523 |
|||
3532 5233 5323 5332 7222 22225 22252 22333 22522 23233 23323 23332 25222 32233 |
|||
32323 32332 33223 33232 33322 52222 222223 222232 222322 223222 232222 322222 |
|||
</pre> |
|||
=={{header|Phix}}== |
=={{header|Phix}}== |