Help for this page

Select Code to Download


  1. or download this
    #!/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]);
  2. or download this
    use Memoize;
memoize('_summands');
  3. or download this
            my $number = $numbers[$index];
        my @remaining = @numbers[ grep $_ != $index, 0 .. $#numbers ];
  4. or download this
            my @remaining = @numbers;
        my ($number) = splice @remaining, $index, 1;