course/introduction.lsp

   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 (println 'hello)
  19 (println 'world)
  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)