From f2d2341ab1e322fb986a9a6ef4681234d28eabe0 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 15 May 2009 18:05:15 -0500
Subject: solution to 36

---
 036.pl | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100755 036.pl

diff --git a/036.pl b/036.pl
new file mode 100755
index 0000000..8d9fa27
--- /dev/null
+++ b/036.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $total = 0;
+for my $n (1..1e6) {
+    my $n2 = sprintf "%b", $n;
+    $total += $n if $n eq reverse($n) and $n2 eq reverse($n2);
+}
+print "$total\n";
-- 
cgit v1.2.3