Sync

Task/Time-a-function/Racket/time-a-function.rkt

@@ -1,7 +1,3 @@
 #lang racket
-(define (fact n)
-  (if (zero? n)
-      1
-      (* n (fact (sub1 n)))))
-
+(define (fact n) (if (zero? n) 1 (* n (fact (sub1 n)))))
 (time (fact 5000))

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