Skip to content

Instantly share code, notes, and snippets.

@anton0xf

anton0xf/fib-memo.rkt

Created September 25, 2022 13:03
Show Gist options
  • Save anton0xf/997605c6d1924f753f46d213d72093a8 to your computer and use it in GitHub Desktop.
Save anton0xf/997605c6d1924f753f46d213d72093a8 to your computer and use it in GitHub Desktop.
Download ZIP
memoized fibonacci example on Racket
Raw
fib-memo.rkt
#lang racket
(define (fib n)
(if (< n 2) n
(+ (fib (- n 1))
(fib (- n 2)))))
(time (fib 35))
; cpu time: 5219 real time: 5138 gc time: 747
; => 9227465
(require memo)
(define/memoize (fib2 n)
(if (< n 2) n
(+ (fib2 (- n 1))
(fib2 (- n 2)))))
(time (fib2 35))
; cpu time: 0 real time: 0 gc time: 0
; => 9227465
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment