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 (exit)