summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-x031.pl56
1 files changed, 56 insertions, 0 deletions
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";