Select Code to Download

#!/usr/bin/perl

...

   ...the light comes on and you get it.

$ perl find_shares_myway_2.pl
Trying to hit target of 7...
...
->A recursive call at depth 2 found that a solution } of [ 2 4 1 ] add
+s up to my target of 7 at depth 1

Solution: [ 2 4 1 ]