Help for this page

Select Code to Download


  1. or download this
    sub NestedLoops (*@loop) returns Ref {
        my @pos = 0 xx (@loop.elems - 1), -1;
    ...
    while ( @group = $iter() ) {
         say ~@group;
    }
    
  2. or download this
      @loops >>.[]<< @pos