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
  19 (println (eval 'z))
  20
  21 (set 'y 'x)
  22 (set y 1)
  23 (println "x="x)
  24 (println "y="y)
  25
  26 (setq y 1)
  27 (println "y="y)
  28
  29 (define y 2)
  30 (println "y="y)
  31
  32 (set 'x 1 'y 2)
  33 (println "x="x)
  34 (println "y="y)
  35
  36 (setq x 3 y 4)
  37 (println "x="x)
  38 (println "y="y)
  39
  40 (println '((x 1) (y 2)))
  41
  42 (println (first '(x 1)))
  43 (println (last '(x 1)))
  44
  45 (println (first '((x 1) (y 2))))
  46
  47 (println "assoc:")
  48 (println (assoc 'x '((x 1) (y 2) (x 3))))
  49 (println "lookup:")
  50 (println (lookup 'x '((x 1) (y 2) (x 3))))
  51
  52 (exit)