summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2009-05-18 21:00:43 -0500
committerJesse Luehrs <doy@tozt.net>2009-05-18 21:00:43 -0500
commit43600492cfedd694a3575dad3ec8d8e65c694474 (patch)
treef93bc2a7a037ac78c53cb422687a7b171d065e70
parentb2a927ebfed4a685f17b2b40fdfd43dfebeed5ee (diff)
downloadprojecteuler-43600492cfedd694a3575dad3ec8d8e65c694474.tar.gz
projecteuler-43600492cfedd694a3575dad3ec8d8e65c694474.zip
solution to 39
-rwxr-xr-x039.pl18
1 files changed, 18 insertions, 0 deletions
diff --git a/039.pl b/039.pl
new file mode 100755
index 0000000..1790191
--- /dev/null
+++ b/039.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use 5.010;
+use List::Util qw/reduce/;
+
+my %triples;
+
+A: for my $a (1..1000) {
+ for my $b (1..1000) {
+ my $c = sqrt($a**2 + $b**2);
+ next A if $a + $b + $c > 1000;
+ next if $c != int($c);
+ $triples{$a + $b + $c}++;
+ }
+}
+our ($a, $b);
+say reduce { $triples{$a} > $triples{$b} ? $a : $b } keys %triples;