fork(2) download
copy 
  1. (defun factorial (x &aux (f 1))
  2.   (tagbody
  3.    0 (if (<= x 0) (go 4))
  4.    1 (setf f (* f x))
  5.    2 (decf x)
  6.    3 (go 0)
  7.    4 (return-from factorial f)))
  8.  
  9. (format t "Fact(~d) -> ~d" #1=42 (factorial #1#))
Success #stdin #stdout 0s 10664KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Fact(42) -> 1405006117752879898543142606244511569936384000000000
https://ideone.com/0BO2eS
language:
Common Lisp (clisp 2.49.92)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

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