Help for this page

Select Code to Download


  1. or download this
    use Ensure;
use strict;
...
};

print "Finally stopped at $x.\n";
  2. or download this
    while ($x < $limit) {
  print "Enter P,Q,R: ";
...
  last if $x >= $limit;
  $x /= $r;
}
  3. or download this
    ensure { ... } using($x,$y,$z), looping { ... };

ensure { ... } using($x,\@y), looping { ... };

ensure { ... } using($x,\%y,\@z), looping { ... };
  4. or download this
    package Ensure;

...


1;