Commit | Line | Data |
---|---|---|
679ae8f3 JB |
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 | ||
19 | (println (eval 'z)) | |
20 | ||
21 | (set 'y 'x) | |
22 | (set y 1) | |
23 | (println "x="x) | |
24 | (println "y="y) | |
25 | ||
26 | (setq y 1) | |
27 | (println "y="y) | |
28 | ||
29 | (define y 2) | |
30 | (println "y="y) | |
31 | ||
32 | (set 'x 1 'y 2) | |
33 | (println "x="x) | |
34 | (println "y="y) | |
35 | ||
36 | (setq x 3 y 4) | |
37 | (println "x="x) | |
38 | (println "y="y) | |
39 | ||
40 | (println '((x 1) (y 2))) | |
41 | ||
42 | (println (first '(x 1))) | |
43 | (println (last '(x 1))) | |
44 | ||
45 | (println (first '((x 1) (y 2)))) | |
46 | ||
47 | (println "assoc:") | |
48 | (println (assoc 'x '((x 1) (y 2) (x 3)))) | |
49 | (println "lookup:") | |
50 | (println (lookup 'x '((x 1) (y 2) (x 3)))) | |
51 | ||
52 | (exit) |