From b2a927ebfed4a685f17b2b40fdfd43dfebeed5ee Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 18 May 2009 00:32:48 -0500 Subject: solution to 31 --- 031.pl | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 56 insertions(+) create mode 100755 031.pl diff --git a/031.pl b/031.pl new file mode 100755 index 0000000..b5d0281 --- /dev/null +++ b/031.pl @@ -0,0 +1,56 @@ +#!/usr/bin/perl +use strict; +use warnings; + +my @denom = qw/200 100 50 20 10 5 2/; +my $count = 0; +for my $a (0..1) { + for my $b (0..2) { + for my $c (0..4) { + for my $d (0..10) { + for my $e (0..20) { + for my $f (0..40) { + for my $g (0..100) { + $count++ if $a * $denom[0] + + $b * $denom[1] + + $c * $denom[2] + + $d * $denom[3] + + $e * $denom[4] + + $f * $denom[5] + + $g * $denom[6] <= 200; + last if $a * $denom[0] + + $b * $denom[1] + + $c * $denom[2] + + $d * $denom[3] + + $e * $denom[4] + + $f * $denom[5] + + $g * $denom[6] > 200; + } + last if $a * $denom[0] + + $b * $denom[1] + + $c * $denom[2] + + $d * $denom[3] + + $e * $denom[4] + + $f * $denom[5] > 200; + } + last if $a * $denom[0] + + $b * $denom[1] + + $c * $denom[2] + + $d * $denom[3] + + $e * $denom[4] > 200; + } + last if $a * $denom[0] + + $b * $denom[1] + + $c * $denom[2] + + $d * $denom[3] > 200; + } + last if $a * $denom[0] + + $b * $denom[1] + + $c * $denom[2] > 200; + } + last if $a * $denom[0] + + $b * $denom[1] > 200; + } + last if $a * $denom[0] > 200; +} +print "$count\n"; -- cgit v1.2.3