Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Time-a-function/Raven/time-a-function.raven
+++ b/Task/Time-a-function/Raven/time-a-function.raven
@ -0,0 +1,21 @@
+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