summaryrefslogtreecommitdiffstats
path: root/092.pl
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