Add all course examples and tutorials

[TD_LISP.git] / course / map.lsp

diff --git a/course/map.lsp b/course/map.lsp
new file mode 100755 (executable)
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)