Add newLisp, our second interpreted lisp implementation that supports f-exprs today, (not in NixOS, but pretty easy to build, so inlined deriviation right in flake.nix). Implemented simple fib/fib-let test.

This commit is contained in:
Nathan Braswell
2022-07-03 00:50:00 -04:00
parent ace81e362e
commit b1817dfdc3
6 changed files with 262 additions and 0 deletions

View File

@@ -0,0 +1,17 @@
#!/usr/bin/env newlisp
;;
;; fibonacci series
;; mostly from http://www.newlisp.org/syntax.cgi?benchmarks/fibo.newlisp.txt
;; modified slightly to match others
;;
(define (fib n)
(cond ((= 0 n) 1)
((= 1 n) 1)
(true (let (a (fib (- n 1))
b (fib (- n 2))
) (+ a b)))))
(println (fib (integer (main-args 2))))
(exit)