| 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 | (exit) |