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

#lang racket
(define (fact n) (if (zero? n) 1 (* n (fact (sub1 n)))))
(time (fact 5000))
all tasks 2013-04-11 01:07:29 -07:00			`#lang racket`
Sync 2013-10-27 22:24:23 +00:00			`(define (fact n) (if (zero? n) 1 (* n (fact (sub1 n)))))`
all tasks 2013-04-11 01:07:29 -07:00			`(time (fact 5000))`