Factorions: Difference between revisions
→{{header|Perl 6}}: Minor tweaks , better concurrency
m (→{{header|REXX}}: optimized the two inner DO loops.) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Minor tweaks , better concurrency) |
||
Line 223:
say "\n\nFactorions in base $b:";
my $sum;
my $prod = $i * $b;
for
$sum += @f[$_];
$sum = 0 and last if $sum > $prod
Line 236:
next if $sum == 0;
print "{$
}
}</lang>
| |||