diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-05-16 15:49:51 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-05-16 15:49:51 -0500 |
commit | 7a8c5653997e037593bf393c2cf2715a56e3ff48 (patch) | |
tree | 69824dd93d89202560cf42a9941f902411e90515 | |
parent | 27b1cc1f9fdab403a743bd328cd212b4f9e9beff (diff) | |
download | projecteuler-7a8c5653997e037593bf393c2cf2715a56e3ff48.tar.gz projecteuler-7a8c5653997e037593bf393c2cf2715a56e3ff48.zip |
solution for 92
-rwxr-xr-x | 092.pl | 28 |
1 files changed, 28 insertions, 0 deletions
@@ -0,0 +1,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 |