Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (
- defun fibonacci (
- n
- &optional (
- a 0 )(
- b 1 )(
- acc ()))(
- if (
- zerop n )(
- nreverse acc )(
- fibonacci (
- 1- n )
- b (
- + a b )(
- cons a acc ))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement