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) | |
35984aac JB |
18 | (println 'hello) |
19 | (println 'world) | |
679ae8f3 JB |
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) |