From 7a8c5653997e037593bf393c2cf2715a56e3ff48 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 16 May 2009 15:49:51 -0500
Subject: solution for 92

---
 092.pl | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 092.pl

(limited to '092.pl')

diff --git a/092.pl b/092.pl
new file mode 100755
index 0000000..d4da49d
--- /dev/null
+++ b/092.pl
@@ -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
-- 
cgit v1.2.3