makelispGNU Make 的 Lisp 实现
makelisp 是 GNU make 的 Lisp 实现。
makelisp.mk 是 GNU make 中的 Lisp 解析器。
GNU make 包含两个内置函数：$(shell) 和 $(guile)。
使用
$ make -f makelisp.mk LISP_PROGRAM='(car (quote (a b c)))' a $ make -f makelisp.mk LISP_PROGRAM='(cdr (quote (a b c)))' (b c) $ make -f makelisp.mk LISP_PROGRAM='(cons 1 (cons 2 (cons 3 ())))' (1 2 3) $ make -f makelisp.mk (defun fact (n) (if (eq n 0) 1 (* n (fact (- n 1))))) (fact 10) (defun fib (n) (if (eq n 1) 1 (if (eq n 0) 1 (+ (fib (- n 1)) (fib (- n 2)))))) (fib 12) (defun gen (n) ((lambda (x y) y) (define G n) (lambda (m) (define G (+ G m)) G))) (define x (gen 100)) (x 10) (x 90) (x 300) ^D fact 3628800 fib 233 gen x 110 200 500
内置函数
-
car
-
cdr
-
cons
-
eq
-
atom
-
+, -, *, /, mod
-
neg?
-
print
特殊表单
-
quote
-
if
-
lambda
-
defun
-
define
复杂示例
FizzBuzz：
$ cat fizzbuzz.l | make -f makelisp.mk (lambda (n) (if (eq n 101) nil (if (print (if (eq (mod n 15) 0) FizzBuzz (if (eq (mod n 5) 0) Buzz (if (eq (mod n 3) 0) Fizz n)))) (fizzbuzz (+ n 1)) nil))) PRINT: 1 PRINT: 2 PRINT: Fizz ... PRINT: 98 PRINT: Fizz PRINT: Buzz nil
Sort：
$ (cat sort.l && echo '(sort (quote (4 2 99 12 -4 -7)))') | make -f makelisp.mk ... (1 2 3 4 5 6 7) (-7 -4 2 4 12 99)
评论