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.
18 lines
502 B
Plaintext
18 lines
502 B
Plaintext
;; Some inefficient arithmetic computations for benchmarking.
|
|
|
|
;; Unfortunately not yet available in tests of steps 4 and 5.
|
|
|
|
;; Compute n(n+1)/2 with a non tail-recursive call.
|
|
(def! sumdown
|
|
(fn* [n] ; non-negative number
|
|
(if (= n 0)
|
|
0
|
|
(+ n (sumdown (- n 1))))))
|
|
|
|
;; Compute a Fibonacci number with two recursions.
|
|
(def! fib
|
|
(fn* [n] ; non-negative number
|
|
(if (<= n 1)
|
|
n
|
|
(+ (fib (- n 1)) (fib (- n 2))))))
|