Pull to refresh

Интерпретатор Lisp на GNU/sed

Abnormal programmingLisp
Интерпретатор Lisp на python в одну строчку? Слишком скучно.

Японский программист, инженер Google Shinichiro Hamaji написал его на sed. Sed — потоковый текстовый редактор, представляющий из себя простой язык программирования. В нем нет переменных, есть только примитив GOTO и выполняющие ветвление функциональные возможности; тем не менее он обладает полнотой по Тьюрингу.

Реализация занимает всего 600 строчек.

Выглядит это примерно так:


Пример использования
$ 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

Репозиторий на Github
Tags:lispsed
Hubs: Abnormal programming Lisp
Total votes 43: ↑40 and ↓3 +37
Views13.1K

Comments 8

Only those users with full accounts are able to leave comments. Log in, please.

Popular right now

Senior NodeJS SW Engineer
from 160,000 ₽E-NGINEERSСанкт-ПетербургRemote job
Java Developer
from 160,000 to 190,000 ₽SCHNEIDER GROUPСанкт-Петербург
Middle+ React Native Developer
from 3,500 to 4,000 $CodemotionRemote job
Senior JavaScript Developer
from 4,500 to 5,500 $Spotware SystemsМоскваRemote job
Senior backend engineer / Remote
from 4,000 to 5,600 €ConsulteerRemote job