Исходное сообщение
"Реализация языка Lisp на GNU sed" Отправлено opennews, 28-Июн-14 22:44
Опубликован (https://github.com/shinh/sedlisp) интерпретатор Lisp, написанный с использованием языка утилиты GNU sed. Реализация занимает около 600 строк кода (https://github.com/shinh/sedlisp/blob/master/sedlisp.sed). Поддерживаются следующие функции, операторы и выражения: car,     cdr,     cons,     eq,     atom,     +, -, *, /, mod,     neg?,     print,     quote,     if,     lambda,     defun и     define. <font color="#461b7e"> $ sed -f sedlisp.sed   > (car (quote (a b c))) a > (cdr (quote (a b c))) (b c) > (cons 1 (cons 2 (cons 3 ()))) (1 2 3) > (defun fact (n) (if (eq n 0) 1 (* n (fact (- n 1))))) (lambda (n) (if (eq n 0) 1 (* n (fact (- n 1))))) > (fact 10) 3628800 > (defun fib (n) (if (eq n 1) 1 (if (eq n 0) 1 (+ (fib (- n 1)) (fib (- n 2)))))) (lambda (n) (if (eq n 1) 1 (if (eq n 0) 1 (+ (fib (- n 1)) (fib (- n 2)))))) > (fib 12) 233 > (defun gen (n) ((lambda (x y) y) (define G n) (lambda (m) (define G (+ G m))))) (lambda (n) ((lambda (x y) y) (define G n) (lambda (m) (define G (+ G m))))) > (define x (gen 100)) (lambda (m) (define G (+ G m))) > (x 10) 110 > (x 90) 200 > (x 300) 500    </font> URL: https://news.ycombinator.com/item?id=7956246 Новость: http://www.opennet.ru/opennews/art.shtml?num=40102