Add more TD code snippets

[TD_LISP.git] / introduction.lsp

#!/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 (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)