Next You can't get there from here 32

Squares

        sub square_a {
          my $x = shift;
          return $x * $x;
        }
        # VALUES OF BEETA GIVE RISE TO DOM
        sub square_b {
          my $fOOooO = abs(shift())<<1;
          my $BarRRr = $fOOooO-++$fOOooO;
          $BarRRr += $fOOooO until ($fOOooO -= 2) <= 0;
          return $BarRRr;
        }

continued...
Next Copyright © 2005 M. J. Dominus