Help for this page

Select Code to Download

Select or download this

  DB<34> sub cross (&$$) { my ($code,$list1,$list2) = @_; local ($a,$b
+); my @res; for $a (@$list1) { for $b (@$list2) { push @res, &$code }
+}; return @res; }

...
7  22
8  32
  DB<36>