Ideone.com

download

copy

(defun fact (n)
  (if (= n 0)
      1
    (* n (fact (- n 1)))
    )
  )
(fact 10)

Success #stdin #stdout 0.02s 27604KB

stdin

copy

Standard input is empty

stdout

copy

Standard output is empty

https://ideone.com/tB15nx

language:

Common Lisp (sbcl 1.4.16)

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!