mirror of
https://github.com/kanaka/mal.git
synced 2024-10-27 14:52:16 +03:00
8a19f60386
- Reorder README to have implementation list after "learning tool" bullet. - This also moves tests/ and libs/ into impls. It would be preferrable to have these directories at the top level. However, this causes difficulties with the wasm implementations which need pre-open directories and have trouble with paths starting with "../../". So in lieu of that, symlink those directories to the top-level. - Move the run_argv_test.sh script into the tests directory for general hygiene.
34 lines
505 B
Plaintext
34 lines
505 B
Plaintext
(load-file "../lib/load-file-once.mal")
|
|
(load-file-once "../lib/reducers.mal")
|
|
;=>nil
|
|
|
|
;; Testing reduce
|
|
(reduce + 7 [])
|
|
;=>7
|
|
(reduce + 7 [1])
|
|
;=>8
|
|
(reduce + 7 [1 2])
|
|
;=>10
|
|
(reduce * 7 [-1 2])
|
|
;=>-14
|
|
(reduce concat [1] [[2] [3]])
|
|
;=>(1 2 3)
|
|
(reduce str "a" ["b" "c"])
|
|
;=>"abc"
|
|
|
|
;; Testing foldr
|
|
(foldr + 7 [])
|
|
;=>7
|
|
(foldr + 7 [1])
|
|
;=>8
|
|
(foldr + 7 [1 2])
|
|
;=>10
|
|
(reduce * 7 [-1 2])
|
|
;=>-14
|
|
(foldr concat [1] [[2] [3]])
|
|
;=>(2 3 1)
|
|
(foldr str "a" ["b" "c"])
|
|
;=>"bca"
|
|
(foldr cons [4 5] [2 3])
|
|
;=>(2 3 4 5)
|