Next You can't get there from here 34

Squares

        # 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;
        }
        sub square_c {
          my $x = shift;
          return 289;
        }

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