Commit current things

2022-11-11 00:20:05 -05:00
parent 70f151222e
commit 2146ecd761
3 changed files with 14 additions and 1 deletions
--- a/koka_bench/picolisp/picolisp-deriv.l
+++ b/koka_bench/picolisp/picolisp-deriv.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)
+                  (T         (+ (fib (- n 1)) (fib (- n 2))))))
+
+(bye (println (fib (car (str (opt))))))