Commit | Line | Data |
---|---|---|
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) |