makelisp 介绍
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)
makelisp 官网
https://github.com/shinh/makelisp
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。