3 (setq L '(1 9 3 7 0 5))
4 (setq M '(2 6 5 4 0 1 3))
6 (define (mem E L) ;la function mem a 2 arguments
8 (if (= (first L) E) true
12 (define (boolmemrec E L)
15 ((= (first L) E) true)
17 (println (boolmemrec 10 L))
19 (define (mem E L) ;la function mem a 2 arguments
31 (println (member 9 L))
33 (println (member 8 L))
35 (define (concatene L1 L2)
37 (cons (first L1) (concatene (rest L1) L2))))
38 (setq C (concatene L M))
40 (println (append L M))
48 ((+ 1 (rang x (rest L)))))
61 ((cons (first L) (tete (- n 1) (rest L))))))
63 (println (slice L 0 3))
69 ((member (first L1) L2) (cons (first L1) (inter (rest L1) L2)))
70 ((inter (rest L1) L2))))
72 (println (intersect L M))
79 ((= (first L1) (first L2)) (inclu (rest L1) (rest L2)))
80 ((inclu L1 (rest L2)))))
83 ;did not found a newlisp builtin equivalent function
85 (define (unionE L1 L2)
88 ((member (first L1) L2) (unionE (rest L1) L2))
89 ((cons (first L1) (unionE (rest L1) L2)))))
90 (println (unionE L M))
91 (println (unionE N L))
95 (setq T '(((4)((2 5))((((((6 7)))))))))
100 ((max (+ 1 (prof (first L))) (prof (rest L))))))
110 ((atom? L) (list L)) ;FIXME: the "casting" is not working properly
111 ((append (aplatir (first L)) (aplatir (rest L))))))
112 ;(println (aplatir T))
120 ((member (first L) (rest L)) (elim (rest L)))
121 ((cons (first L) (elim (rest L))))))
128 ((append (reverseL (rest L)) (list (first L))))))
129 (println (reverseL L))
130 (println (reverse L))
135 ((>= (first L) n) (list< n (rest L)))
136 ((cons (first L) (list< n (rest L))))))
137 (println (list< 5 L))
138 (println (list< 5 C))
143 ((< (first L) n) (list>= n (rest L)))
144 ((cons (first L) (list>= n (rest L))))))
145 (println (list>= 5 C))