diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-05-15 10:01:55 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-05-15 10:01:55 -0500 |
commit | 5afab29454b75fa55cc54fc32fa39b20aea75134 (patch) | |
tree | 2b43b56ccf75b6e8526c47dff83a2df300563d32 /029-slow.pl | |
parent | fecd0fa58cc1a57de109486d3138a3f279c3b355 (diff) | |
download | projecteuler-5afab29454b75fa55cc54fc32fa39b20aea75134.tar.gz projecteuler-5afab29454b75fa55cc54fc32fa39b20aea75134.zip |
add my slow solution to 29, and my broken attempt at a faster one
Diffstat (limited to '029-slow.pl')
-rwxr-xr-x | 029-slow.pl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/029-slow.pl b/029-slow.pl new file mode 100755 index 0000000..8f36b00 --- /dev/null +++ b/029-slow.pl @@ -0,0 +1,24 @@ +#!/usr/bin/perl +use strict; +use warnings; +use 5.010; +use List::MoreUtils qw/uniq/; + +my $n = $ARGV[0]; + +my @list; +my %list; +for my $a (2..$n) { + for my $b (2..$n) { + my $pow = `echo '$a^$b' | bc`; + chomp $pow; + #push @{ $list{$pow} ||= [] }, [$a, $b]; + push @list, $pow; + } + #say $a; +} +#for my $val (keys %list) { + #next unless @{ $list{$val} } > 1; + #say join ' == ', map { "$_->[0]^$_->[1]" } @{ $list{$val} }; +#} +say scalar uniq sort @list; |