Inline array? and len, add PicoLisp fib & fib-let benchmarks

2022-07-02 23:49:47 -04:00
parent 07a25c8c59
commit ace81e362e
6 changed files with 88 additions and 6 deletions
--- a/koka_bench/picolisp/picolisp-fib.l
+++ b/koka_bench/picolisp/picolisp-fib.l
@@ -0,0 +1,13 @@
+#!/usr/bin/env bash
+#{
+# Thanks to http://rosettacode.org/wiki/Multiline_shebang#PicoLisp
+exec pil $0 $1
+# }#
+
+
+
+(de fib (n) (cond ((= 0 n)   1)
+                  ((= 1 n)   1)
+                  (1         (+ (fib (- n 1)) (fib (- n 2))))))
+
+(bye (println (fib (car (str (opt))))))