22 lines
352 B
Plaintext
22 lines
352 B
Plaintext
define doId use $x
|
|
$x dup * $x /
|
|
|
|
define doPower use $v, $p
|
|
$v $p pow
|
|
|
|
define doSort
|
|
group
|
|
20000 each choose
|
|
list sort reverse
|
|
|
|
define timeFunc use $fName
|
|
time as $t1
|
|
$fName "" prefer call
|
|
time as $t2
|
|
$fName $t2 $t1 -"%.4g secs for %s\n" print
|
|
|
|
"NULL" timeFunc
|
|
42 "doId" timeFunc
|
|
12 2 "doPower" timeFunc
|
|
"doSort" timeFunc
|