fork(2) download
copy 
  1. (defun fact (n)
  2.       (if (zerop n) 3.14
  3.                 (* n (fact (1- n)))))
  4.  
  5. (defun sum (n)
  6.         (loop for i from 1 to n summing (fact i)))
  7.  
  8. (print (sum 7))
Success #stdin #stdout 0.03s 10592KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
18566.818
https://ideone.com/XZok2C
language:
Common Lisp (clisp 2.49.92)
created:
11 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!