fork download
copy 
  1. (def factorial-infinite-list
  2.   (iterate 
  3.     (fn [[fact idx]]
  4.       (let [idx (+ 1 idx)
  5.             fact (* fact idx)]
  6.         [fact idx])) 
  7.     [1 0]))
  8.  
  9. (println (take 7 factorial-infinite-list) (nth factorial-infinite-list 10))
Success #stdin #stdout 1.37s 389120KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
([1 0] [1 1] [2 2] [6 3] [24 4] [120 5] [720 6]) [3628800 10]
https://ideone.com/HAx1Dn
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!