X-Git-Url: https://git.piment-noir.org/?p=TD_LISP.git;a=blobdiff_plain;f=course%2Fmap.lsp;fp=course%2Fmap.lsp;h=3a0676d52259c1545d85e284eb831f74a7a0eeec;hp=0000000000000000000000000000000000000000;hb=15c46339dbd746558fb5b82c2823e0ede2cc7bfd;hpb=a5273e70fe54850ee147232848c009ede063ee7b

diff --git a/course/map.lsp b/course/map.lsp
new file mode 100755
index 0000000..3a0676d
--- /dev/null
+++ b/course/map.lsp
@@ -0,0 +1,19 @@
+#!/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)