Help for this page

Select Code to Download


  1. or download this
    sub generateSequencer {
    my( $start, $inc )= @_;
    $start -= $inc;
...
my $countByThrees= generateSequencer( 1, 3 );
print $countByTwos->(), " ", $countByThrees->(), $/
    for   1..4;
  2. or download this
    0
2
4
...
8 4
10 7
12 10
  3. or download this
    sub { return $start += $inc; };
  4. or download this
    print $countByTwos->(), " ", $countByThrees->(), $/