Help for this page

Select Code to Download


  1. or download this
    use 5.010;
use strict;
...

# Clean up temp dir
$temp->rmtree;
  2. or download this
    my $pairs = iterator_multi(\@ingredients, \@meals);
while (my ($i, $m) = $pairs->())
{
    printf("%s\t%s\t%d\n", $i, $m, !!$pairings{$i, $m});
}
  3. or download this
    say for mapm { join "\t", @_, 0+ $pairings{$_[0], $_[1]} } \@ingredien
+ts, \@meals;