Help for this page

Select Code to Download


  1. or download this
    my @radsigma;
for ( my $i=1; $i<=100; $i+=2 ) {
...
    }
    push @radsigma, [ $r, $sig ];
}
  2. or download this
    use strict;
use warnings;
use constant PI => 3.1416;
  3. or download this
    sub sigmalow {
    my $rad = shift;   # shift it off the front of @_
    my $rad = $_[0];   # or explicitly assign the value
  4. or download this
    for my $i (1..100){
    next unless $r % 2;
...
    my $i = $_ * 2 + 1;

for my $i ( grep {$_ %2} (0..99 ) ){