Source

project-euler / project-euler / 152 / euler-152-take3.pl

Diff from to

project-euler/152/euler-152-take3.pl

 @keys = @keys[grep { $ints[$_] % 2 == 0 } keys(@keys)];
 calc_stuff();
 
+# Deduced by semi-manual deduction.
+@keys = @keys[grep { $ints[$_] % 7 == 0 } keys(@keys)];
+calc_stuff();
+
+# Deduced by semi-manual deduction.
+@keys = @keys[grep { $ints[$_] % 9 == 0 } keys(@keys)];
+calc_stuff();
+
+# Deduced by semi-manual deduction.
+@keys = @keys[grep { $ints[$_] % 15 != 1 } keys(@keys)];
+calc_stuff();
+
 print join("\n", @ints), "\n";
 print "TARGET ==\n$target\n";