Select Code to Download

#!/usr/bin/perl
use warnings;
...

cmp_deeply summands(100, 5, 5, 5, 5, 10, 15, 80, 99),
    bag([5, 15, 80], [5, 5, 5, 5, 80], [5, 5, 10, 80]);

use Memoize;
memoize('_summands');

        my $number = $numbers[$index];
        my @remaining = @numbers[ grep $_ != $index, 0 .. $#numbers ];

        my @remaining = @numbers;
        my ($number) = splice @remaining, $index, 1;