diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-05-18 21:00:43 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-05-18 21:00:43 -0500 |
commit | 43600492cfedd694a3575dad3ec8d8e65c694474 (patch) | |
tree | f93bc2a7a037ac78c53cb422687a7b171d065e70 /039.pl | |
parent | b2a927ebfed4a685f17b2b40fdfd43dfebeed5ee (diff) | |
download | projecteuler-43600492cfedd694a3575dad3ec8d8e65c694474.tar.gz projecteuler-43600492cfedd694a3575dad3ec8d8e65c694474.zip |
solution to 39
Diffstat (limited to '039.pl')
-rwxr-xr-x | 039.pl | 18 |
1 files changed, 18 insertions, 0 deletions
@@ -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; |