Select Code to Download

#!/usr/bin/perl

...
  my ($first, @rest) = @{ shift() } or return ();
  map([$first, @$_], Solve($want - $first, \@rest)), Solve($want, \@re
+st);
  }

15 43 51 56 60 122 229 293
15 43 51 56 204 229 271
...
43 122 204 229 271
56 60 67 122 271 293
56 67 152 293 301