Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
2 arg Y
(define y2
(lambda (c)
((lambda (h)
(h h))
(lambda (f)
(c (lambda (x y)
((f f) x y)))))))
(define make-rember
(y2 (lambda (f)
(lambda (a l)
((null? l) '())
((eq? (car l) a)
(f a (cdr l)))
(cons (car l)
(f a (cdr l)))))))))
(make-rember 'c '(a c d c))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment