| 1 | #!/usr/bin/env newlisp |
| 2 | |
| 3 | (println "Hello World!") |
| 4 | |
| 5 | (println '(println "Hello World!")) |
| 6 | |
| 7 | (println (eval (quote (println "Hello World!")))) |
| 8 | |
| 9 | (if true (println "Hello") (println "Goodbye")) |
| 10 | |
| 11 | (set 'hello "Hello") |
| 12 | (set 'world " World!") |
| 13 | |
| 14 | (println hello world) |
| 15 | |
| 16 | (println hello) |
| 17 | (println world) |
| 18 | (println 'hello) |
| 19 | (println 'world) |
| 20 | |
| 21 | (println (eval 'z)) |
| 22 | |
| 23 | (set 'y 'x) |
| 24 | (set y 1) |
| 25 | (println "x="x) |
| 26 | (println "y="y) |
| 27 | |
| 28 | (setq y 1) |
| 29 | (println "y="y) |
| 30 | |
| 31 | (define y 2) |
| 32 | (println "y="y) |
| 33 | |
| 34 | (set 'x 1 'y 2) |
| 35 | (println "x="x) |
| 36 | (println "y="y) |
| 37 | |
| 38 | (setq x 3 y 4) |
| 39 | (println "x="x) |
| 40 | (println "y="y) |
| 41 | |
| 42 | (println '((x 1) (y 2))) |
| 43 | |
| 44 | (println (first '(x 1))) |
| 45 | (println (last '(x 1))) |
| 46 | |
| 47 | (println (first '((x 1) (y 2)))) |
| 48 | |
| 49 | (println "assoc:") |
| 50 | (println (assoc 'x '((x 1) (y 2) (x 3)))) |
| 51 | (println "lookup:") |
| 52 | (println (lookup 'x '((x 1) (y 2) (x 3)))) |
| 53 | |
| 54 | (exit) |