From 2789f9ea1968e6eb0defe06c92cb7a7f544191b3 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 29 Sep 2016 04:01:09 -0400
Subject: problem 55

---
 055.pl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 055.pl

(limited to '055.pl')

diff --git a/055.pl b/055.pl
new file mode 100644
index 0000000..e695605
--- /dev/null
+++ b/055.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.014;
+
+use bigint;
+
+my $count = 0;
+for my $i (1..9999) {
+    $count++ if lychrel(Math::BigInt->new($i));
+}
+
+say $count;
+
+sub lychrel {
+    my ($i) = @_;
+
+    for my $iter (1..50) {
+        $i += reverse($i);
+        return if $i == reverse($i);
+    }
+    return 1;
+}
-- 
cgit v1.2.3