Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
(defun s (f)
(lambda (g)
(lambda (x)
(funcall (funcall f x) (funcall g x)))))
(let ((result #'(lambda () (funcall (funcall (funcall #'s #'(lambda (n) #'(lambda (x) (+ x n)))) #'(lambda (x) (* x x))) 5))))
(print (funcall result)))может, объединить ski и y комбинаторы с самодельными сумматорами и сделать самое запутанное сложение всех времен?
Запостил: 
lisp-worst-code,
(Updated )
Комментарии (2) RSS