Advertisement
Guest User

Untitled

a guest
Oct 31st, 2014
138
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. (define (fib-helper current target fib-prev fib-now)
  2. (if (= current target)
  3. fib-now
  4. (fib-helper (+ 1 current) target fib-now (+ fib-prev fib-now))))
  5. (define (fib n)
  6. (if (<= n 2) 1
  7. (fib-helper 2 n 1 1)))
  8.  
  9. (fib 7)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement