course/map.lsp

   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)