course/lists.lsp

   1 #!/usr/bin/env newlisp
   2
   3 (setq L '(1 2 3))
   4 (println (first L)) ; le premier élément
   5 (println (rest L)) ; la liste privée du premier élément
   6 (println (last L)) ; le dernier élément
   7
   8 (println (rest '(1)))
   9 (println (rest '()))
  10 ; return an error: empty list
  11 ;(println (first '()))
  12 ;(println (last '()))
  13
  14 (define (list-length a-list)
  15   (if a-list
  16     (+ 1 (list-length (rest a-list)))
  17     0))
  18
  19 (println (list-length L))
  20
  21 (println (length L))
  22
  23 type list ::= empty-list | first * list
  24
  25 (setq x 1)
  26 (println (+ x 1))
  27
  28 (set 'x 1 'y 2)
  29 (let ((x 3) (y 4))
  30   (println x)
  31   (println (list x y)))
  32 (println "x="x" y="y)
  33
  34 (setq x 3 y 4)
  35 (let ((x 1) (y 2))
  36   (println "x="x" y="y))
  37 (println "x="x" y="y)
  38
  39 (setq x 3 y 4)
  40 (let ((y 2))
  41   (setq x 5 y 6)
  42   (println "x="x" y="y))
  43 (println "x="x" y="y)
  44
  45 (exit)