fork download
copy 
  1. (defn fact [arg]
  2.   (reduce 
  3.     (fn [acc idx] (* acc (+ 1 idx))) 
  4.     1
  5.     (range 0 arg)))
  6.  
  7. (println (fact 5) (fact 0) (fact 10))
Success #stdin #stdout 1.33s 389120KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
120 1 3628800
https://ideone.com/JbRBTS
language:
Clojure (clojure 1.10.0)
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!