Toy LISP implementation for c++0x.
- Symbol
- Cons
- Int
- String
- Proc
- BuiltinProc
- Macro
ifdoEvaluations all arguments sequentially and returns last evaluation value.quotedefCreates a variable binding on global. e.g.(def first (\ (list) (car list)))set!Rebinds a variable to a value.lete.g.(let (a 1 b 2) (+ a b))=>3let*\a.k.a.lambda.macroe.g.(def set-nil (macro (a) (cons (quote set!) (cons a (cons nil ()))))) (set-nil foo) (println foo)=>nil
eq?nil?cons?list?symbol?int?string?proc?+-*/mod=Compares some Int values. If these values are equivalent mutually, it returns symbolt.<printPrints argument objects. No newline.printlnPrints argument objects with newlines.print-to-stringcarcdrconsgensymbound?get-timeevalreadReads S-expression from standard input.loadReceives a file name as String and evaluates the lisp code in the file.macroexpand-all
Some useful functions and macros are available immediately on LISP start. These are defined in core.lisp file.
(def fib
(\ (n)
(if (< 1 n)
(+ (fib (- n 1)) (fib (- n 2)))
n)))
(println (fib 10))
; 55
(def count-up
(let (count 0) ; This 'count' is a lexical variable.
(\ () (set! count (+ count 1)) count)))
(println (count-up) (count-up) (count-up))
; 1
; 2
; 3
(println (bound? (quote count)))
; nil
(def count 10) ; This 'count' is a special variable.
(def count-up
(\ () (set! count (+ count 1)) count))
(println (count-up) (count-up) (count-up))
; 11
; 12
; 13
(let (count 0)
(println (count-up) (count-up) (count-up)))
; 1
; 2
; 3
(def my-list (\ xs xs))
(set! hanoi
(\ (n a b c)
(if (< 0 n)
(do (hanoi (- n 1) a b c)
(print "move " n " from " a " to " c "\n")
(hanoi (- n 1) b c a)))))
(hanoi 3 "towerA" "towerB" "towerC")
; move 1 from towerA to towerC
; move 2 from towerA to towerC
; move 1 from towerB to towerA
; move 3 from towerA to towerC
; move 1 from towerB to towerA
; move 2 from towerB to towerA
; move 1 from towerC to towerB
(set! fizz-buzz
(\ (n)
(when (< 0 n)
(do (fizz-buzz (- n 1))
(println (cond
((= (mod n 15) 0) "FizzBuzz")
((= (mod n 3) 0) "Fizz")
((= (mod n 5) 0) "Buzz")
(t n)))))))
React
Typescript
Django
Laravel
Facebook
Microsoft
Google
Alibaba
D3
Tencent