add solution for problem 9

1 files changed, 14 insertions, 0 deletions

diff --git a/009.pl b/009.pl
new file mode 100755
index 0000000..73cafeb
--- /dev/null
+++ b/009.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+A: for my $a (1..1000) {
+    B: for my $b (1..(1000 - $a)) {
+        my $c = 1000 - $a - $b;
+        next A if $c <= 0;
+        if ($a**2 + $b**2 == $c**2) {
+            print "$a, $b, $c: ", $a * $b * $c, "\n";
+            last A;
+        }
+    }
+}