Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -l
use strict;
...
while( my @subset = $iter->() ) {
    print "@subset";
}
  2. or download this
            ( sub { [ ( @_ ? $_ : 0 ) .. $#chars ] } ) x $k
  3. or download this
     $ comb 10 10 | wc -l # with replacement
92378
 $ comb -10 19 | wc -l # without replacement
92378
  4. or download this
    #!/usr/bin/perl -l
use strict;
...
while( my @subset = $iter->() ) {
    print "@subset";
}