Sync

2013-10-27 22:24:23 +00:00 · 2013-10-27 22:24:23 +00:00 · 776bba907c
commit 776bba907c
parent 6f050a029e
3887 changed files with 59894 additions and 7280 deletions
--- a/Task/Time-a-function/Racket/time-a-function.rkt
+++ b/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))