rusefi
/
bldc
mirror of https://github.com/rusefi/bldc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
bldc/benchmarks/fibonacci_tail.lisp

10 lines
170 B
Common Lisp
Raw Normal View History

Squashed 'lispBM/lispBM/' content from commit 748477b9 git-subtree-dir: lispBM/lispBM git-subtree-split: 748477b953fbd06094fc17c1c6332bf5f9cea7d0
2022-01-29 08:26:45 -08:00
(define fib (lambda (n)
(let ((fib0 (lambda (n a b)
(if (= n 0) a
(if (= n 1) b
(fib0 (- n 1) b (+ a b)))))))
(fib0 n 0 1))))
Squashed 'lispBM/lispBM/' changes from 7930b985..f6ae1498 f6ae1498 gc should free array header always ee321014 fix in unsafe-free 1e9f2399 test of unsafe-free c97eb831 added unsafe-free to array_extensions 0076f553 fix bug in gc sweep related to arrays allocated in lbm_memory 9c414d5a fix bug in c function for creating array in lbm git-subtree-dir: lispBM/lispBM git-subtree-split: f6ae1498908a8c1364479d24b434669ca59a6300
2022-02-21 09:36:00 -08:00
(fib 23)