Select Code to Download

print exp( log( 100 ) *.5 );;
10

print exp( log( 1000 ) *.3333333333333333333333 );;
10

sub pow{ exp( log( $_[0] ) * $_[1] ) };;

...
18 : 12345.00000000000500000
19 : 12344.99999999998400000
20 : 12345.00000000000500000