Ideone.com

download

(defun factorial (n)
  (let ((f 1))
    (loop :for i :from 2 :to n :do (setf f (* f i)))
    f))
 
(format t "~a~%~a~%" (factorial 4) (factorial 40))

Success #stdin #stdout 0.01s 26652KB

stdin

Standard input is empty

stdout

24
815915283247897734345611269596115894272000000000

https://ideone.com/2FetM8

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!