[TD_LISP.git] / course / map.lsp

#!/usr/bin/env newlisp

(println (map eval '((+ 1) (+ 1 2 3) 11)))
;(println (list (+ 1) (+ 1 2 3) 11))

(println (map string? '(1 "Hello" 2 " World!")))

(println (map + '(1 2 3 4) '(4 5 6 7) '(8 9 10 11)))

; fn = lambda
(println (map (fn (x) (= 0 (% x 2))) '(1 2 3 4)))

(println (filter (fn (x) (= 0 (% x 2))) '(1 2 3 4)))

(println (index (fn (x) (= 0 (% x 2))) '(1 2 3 4)))

(println (apply + '(1 2 3)))

(exit)
Commit	Line	Data
15c46339 JB	1	#!/usr/bin/env newlisp
	2
	3	(println (map eval '((+ 1) (+ 1 2 3) 11)))
	4	;(println (list (+ 1) (+ 1 2 3) 11))
	5
	6	(println (map string? '(1 "Hello" 2 " World!")))
	7
	8	(println (map + '(1 2 3 4) '(4 5 6 7) '(8 9 10 11)))
	9
	10	; fn = lambda
	11	(println (map (fn (x) (= 0 (% x 2))) '(1 2 3 4)))
	12
	13	(println (filter (fn (x) (= 0 (% x 2))) '(1 2 3 4)))
	14
	15	(println (index (fn (x) (= 0 (% x 2))) '(1 2 3 4)))
	16
	17	(println (apply + '(1 2 3)))
	18
	19	(exit)