Size: a a a
T
(lambda f, arg: f(f, arg))(
(lambda r, x: x if x == 0 else r(r, x-1)),
10)T
ST
AI
T
ST
AI
T
AI
AI
AI
T
(defn start-y-combinator [y & args]А это вызов самого комбинатор, который принимает своё имя первым аргументом
(apply y y args))
(start-y-combinator
(fn [factorial x]
(if (zero? x)
1
(* x (factorial factorial (dec x)))))
5)
T
(defn start-y-combinator [y & args]А это вызов самого комбинатор, который принимает своё имя первым аргументом
(apply y y args))
(start-y-combinator
(fn [factorial x]
(if (zero? x)
1
(* x (factorial factorial (dec x)))))
5)
T
AI
AI
T
AI
T