Commit | Line | Data |
---|---|---|
15c46339 JB |
1 | #!/usr/bin/env newlisp |
2 | ||
3 | ; function addition | |
4 | ;(define (f x y) (+ x y)) | |
5 | ;(println (f 1 2)) | |
6 | ||
7 | ;(define f (lambda (x y) (+ x y))) | |
8 | (setq f (lambda (x y) (+ x y))) | |
9 | ;(set 'f (lambda (x y) (+ x y))) | |
10 | (println (f 1 2)) | |
11 | (println ((lambda (x y) (+ x y)) 1 2)) | |
12 | ||
13 | (println (let ((x 1) (y 2)) (+ x y))) | |
14 | (println ((lambda (x y) (+ x y)) 1 2)) | |
15 | ||
16 | (setq x 3 y 4) | |
17 | (println "x="x" y="y) | |
18 | (println ((lambda (y) (setq x 5 y 6) (+ x y)) 1 2)) | |
19 | (println "x="x" y="y) | |
20 | ||
21 | (exit) |