Fib DP ver

fib-dp.scm

(define (fib x)
  (let* ((MAX-N 1000)
	(dp (make-vector MAX-N #f))
	(data (make-vector MAX-N)))
    (let loop((num x))
      (if (vector-ref dp x)
	  (vector-ref data x)
	  (let ((tmp (if (>= 2 num) 1 (+ (loop (- num 1)) (loop (- num 2))))))
	    (vector-set! dp num #t)
	    (vector-set! data num tmp)
	    tmp)))))

(display (fib 10))