Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
    {printf "%3d is a square\n" => $_ if (1 x $_) =~ /$re/}
do  {printf "%3d is a square\n" => $_ if (1 x $_) =~ /$re/} for 1 .. $
+MAX;
map {printf "%3d is a square\n" => $_ if (1 x $_) =~ /$re/}     1 .. $
+MAX;
  2. or download this
      1 is a square
  4 is a square
...
 36 is a square
 49 is a square
Out of memory!
  3. or download this
      1 is a square
  4 is a square
...
 49 is a square
 64 is a square
Out of memory!