Skip to content

Instantly share code, notes, and snippets.

@wasabili

wasabili/fib.scm

Created November 23, 2010 13:47
Show Gist options
  • Save wasabili/711779 to your computer and use it in GitHub Desktop.
Save wasabili/711779 to your computer and use it in GitHub Desktop.
Download ZIP
fib DP ver
Raw
fib.scm
(define dp (make-vector 1000))
(vector-set! dp 0 1)
(vector-set! dp 1 1)
(define (fib cur dest)
(if (> cur dest)
(vector-ref dp dest)
(begin (vector-set! dp cur (+ (vector-ref dp (- cur 1)) (vector-ref dp (- cur 2))))
(fib (+ cur 1) dest))))
(display (fib 2 99)) ;;; 100番目
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment