;; memoize ;; http://valvallow.blogspot.com/2010/09/paip-memo-memoize-define-memo.html (define-memo (fib-m n) (if (or (zero? n) (= n 1)) 1 (+ (fib-m (- n 1)) (fib-m (- n 2))))) (fib-m 10) ;; 89 (time (fib-m 10000)) ;(time (fib-m 10000)) ; real 0.125 ; user 0.125 ; sys 0.000