Commit current things
This commit is contained in:
13
koka_bench/picolisp/picolisp-deriv.l
Normal file
13
koka_bench/picolisp/picolisp-deriv.l
Normal file
@@ -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))))))
|
||||
0
koka_bench/scheme/scheme-nqueens.scm
Normal file
0
koka_bench/scheme/scheme-nqueens.scm
Normal file
@@ -17,7 +17,7 @@ find build -type f -name \*slow\* -exec mv {} slow \;
|
||||
cp ./build/kraken/out/bench/kraken-* ./slow
|
||||
mv ./build/kraken/out/bench/kraken-cfold ./slow
|
||||
mv ./build/newlisp/out/bench/* ./slow
|
||||
|
||||
mv ./build/picolisp/out/bench/* ./slow
|
||||
|
||||
#nix develop -i -c bash -c 'ulimit -s unlimited && find build -type f -executable -name \*rbtree\* -printf "\"%p 420000\"\n" | xargs hyperfine --ignore-failure --warmup 2 --export-markdown rbtree_table.md --export-csv rbtree_table.csv'
|
||||
#nix develop -i -c bash -c 'ulimit -s unlimited && find build -type f -executable -name \*fib\* -printf "\"%p 30\"\n" | xargs hyperfine --ignore-failure --warmup 2 --export-markdown fib_table.md --export-csv fib_table.csv'
|
||||
|
||||
Reference in New Issue
Block a user