Iterated digits squaring: Difference between revisions
m
→{{header|Perl 6}}: Remove some superstitious parenthesis
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Replace nqp with fast algorithm example) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Remove some superstitious parenthesis) |
||
Line 1,727:
my $nn = $n;
loop {
while
$digit = $nn % 10;
$sum += $digit²;
Line 1,742:
my @sums is default(0) = 1,0;
my $s;
for
for
for
$s = $j²;
last if $s > $i;
| |||