Skip to content

Instantly share code, notes, and snippets.

@jbclements

jbclements/recursion using y-comb

Created May 4, 2020 17:08
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jbclements/ef3fc6bc10d46c7b76100ddb894b298d to your computer and use it in GitHub Desktop.
Save jbclements/ef3fc6bc10d46c7b76100ddb894b298d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
recursion using y-comb
#lang racket
#;((define loop-maker
(λ (loop-maker)
(λ (n)
(if (< n 17)
((loop-maker loop-maker) (+ n 1))
n))))
((loop-maker loop-maker) 0))
((λ (lm)
((lm lm) 0))
(λ (loop-maker)
(λ (n)
(if (< n 17)
((loop-maker loop-maker) (+ n 1))
n))))
((λ (fm)
((fm fm) 7000))
(λ (fib-maker)
(λ (n)
(if (= n 0)
1
(if (= n 1)
1
(+ 33
((fib-maker fib-maker) (- n 2))))))))
((λ (f) (f 3 4 5))
(λ (x y z) (+ x y z)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment