Problem 29 auf projecteuler.net
Die Lösung zu Problem 29 war extrem einfach.
Diese Lösung habe ich in der Skriptsprache Perl erstellt – die Rechengeschwindigkeit ist da allerdings etwas niedriger aber auch nicht schlecht:
real 0m1.817s
user 0m1.812s
sys 0m0.004s
Hier der Code:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
#!/usr/bin/env perl use strict; use warnings; my @nums = (); foreach my $a (2..100) { foreach my $b (2..100) { my $num = $a ** $b; push @nums, $num if !grep {$num == $_} @nums; } } print "Result: ", scalar @nums, "\n"; |
Veröffentlicht am 14. April 2015 von admin in Perl, Programmierung, projecteuler