Advertisement
Guest User

Untitled

a guest
Jul 19th, 2017
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.15 KB | None | 0 0
  1. (define (fib n)
  2.   (let loop ([ls '(1 1)] [count 1])
  3.     (if (= n count) (car ls)
  4.         (loop (list (+ (car ls) (cadr ls)) (car ls)) (+ 1 count)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement