Help for this page

Select Code to Download


  1. or download this
    $ perl -e '
    > use strict;
    ...
    a 123 ; b 127 => 4
    a 125 ; b 131 => 6
    a 129 ; b 133 => 4
    
  2. or download this
    use strict;
    use warnings;
    ...
    b 131
    a 132
    b 133
    
  3. or download this
    $ perl iter_pairs.pl
    a 123 ; b 127 => 4
    a 125 ; b 131 => 6
    a 129 ; b 133 => 4
    
  4. or download this
    
    use strict;
    ...
    __DATA__
    a 123
    ...