Add all course examples and tutorials

[TD_LISP.git] / course / introduction.lsp

diff --git a/course/introduction.lsp b/course/introduction.lsp
new file mode 100755 (executable)
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)