Ideone.com

fork download

(defun fib(n)
  (if(or (eq n 0) (eq n 1))
    (return-from fib n))
  (return-from fib (+ (fib (- n 1)) (fib (- n 2)))))
(print (fib 10))

Success #stdin #stdout 0.02s 10584KB

stdin

Standard input is empty

stdout

https://ideone.com/t04HJl

language:

Common Lisp (clisp 2.49.92)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!