fork(3) download
  1. (defn sum [n]
  2. (if ( == n 1)
  3. 1
  4. (+ n (sum (dec n)))))
  5.  
  6. (print (sum 1000))
Success #stdin #stdout 1.96s 335488KB
stdin
Standard input is empty
stdout
500500