Help for this page

Select Code to Download


  1. or download this
    sub _cube { $_[0] ** 3 }
    
  2. or download this
    sub _cuberoot {
      my $res = abs($_[0])**(1/3);
      $_[0] < 0 ? -$res : $res;
    }