X-Git-Url: https://git.piment-noir.org/?a=blobdiff_plain;f=course%2Fintroduction.lsp;fp=course%2Fintroduction.lsp;h=1fe639d31a9aa639788031f0a765287e7e429638;hb=15c46339dbd746558fb5b82c2823e0ede2cc7bfd;hp=0000000000000000000000000000000000000000;hpb=a5273e70fe54850ee147232848c009ede063ee7b;p=TD_LISP.git

diff --git a/course/introduction.lsp b/course/introduction.lsp
new file mode 100755
index 0000000..1fe639d
--- /dev/null
+++ b/course/introduction.lsp
@@ -0,0 +1,54 @@
+#!/usr/bin/env newlisp
+
+(println "Hello World!")
+
+(println '(println "Hello World!"))
+
+(println (eval (quote (println "Hello World!"))))
+
+(if true (println "Hello") (println "Goodbye"))
+
+(set 'hello "Hello")
+(set 'world " World!")
+
+(println hello world)
+
+(println hello)
+(println world)
+(println 'hello)
+(println 'world)
+
+(println (eval 'z))
+
+(set 'y 'x)
+(set y 1)
+(println "x="x)
+(println "y="y)
+
+(setq y 1)
+(println "y="y)
+
+(define y 2)
+(println "y="y)
+
+(set 'x 1 'y 2)
+(println "x="x)
+(println "y="y)
+
+(setq x 3 y 4)
+(println "x="x)
+(println "y="y)
+
+(println '((x 1) (y 2)))
+
+(println (first '(x 1)))
+(println (last '(x 1)))
+
+(println (first '((x 1) (y 2))))
+
+(println "assoc:")
+(println (assoc 'x '((x 1) (y 2) (x 3))))
+(println "lookup:")
+(println (lookup 'x '((x 1) (y 2) (x 3))))
+
+(exit)