Help for this page

Select Code to Download


  1. or download this
    use Math::Fleximal;
    my $flex =
    ...
      print "\n";
      $x = $x->add($one);
    }
    
  2. or download this
    #! /usr/bin/perl -w
    use strict;
    ...
      my $sub = sub {$fn->($_, @_) for @$range};
      return @_ ? ret_iter($sub, @_) : $sub;
    }