fork(8) download
copy 
  1. (defn fact [x]
  2.   (loop [n x prod 1] ;; this works just like a 'let' binding.
  3.     (if (= 1 n)  ;; this is the base case.
  4.       prod
  5.       (recur (dec n) (* prod n)))))
  6.  
  7. (println (fact 5)) ;; change 5 to whatever number you like!
  8.  
  9. ;; ...but not more than 20, or you'll get an integer overflow error.
  10. ;; to fix this, you can add 'N' to the end of any number to make it a bigint.
  11. ;; 21 -> 21N
Success #stdin #stdout 1.73s 335552KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
120
https://ideone.com/3iP3tI
language:
Clojure (clojure 1.10.0)
created:
8 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!