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->(), $/