[TD_LISP.git] / lists.lsp

#!/usr/bin/env newlisp

(setq L '(1 2 3))
(println (first L)) ; le premier élément
(println (rest L)) ; la liste privée du premier élément
(println (last L)) ; le dernier élément

(println (rest '(1)))
(println (rest '()))
; return an error: empty list
;(println (first '()))
;(println (last '()))

(define (list-length a-list)
  (if a-list
    (+ 1 (list-length (rest a-list)))
    0))

(println (list-length L))

(exit)
Commit	Line	Data
679ae8f3 JB	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)