blob: d4da49d170949f6ad195fc0bbc47ef231c9e98cf (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use List::Util qw/sum/;
my @decided;
for my $n (1..1e7) {
my $test = $n;
LOOP: {
if ($test == 1) {
$decided[$n] = 0;
}
elsif ($test == 89) {
$decided[$n] = 1;
}
elsif ($decided[$test]) {
$decided[$n] = $decided[$test];
}
else {
my @test = split //, $test;
$test = sum map { $_**2 } @test;
redo;
}
}
}
say scalar grep { $_ } @decided
|