Re: stats say SBCL is 78 875 % faster than natively compiled Elisp

[Chen Zhaoyang]

Emanuel Berg <incal@dataswamp.org> writes:

> (defun fib (reps num)
>   (let ((z 0))
>     (dotimes (_ reps)
>       (let ((p1 1)
>             (p2 1))
>         (dotimes (_ (- num 2))
>           (setf z (+ p1 p2)
>                 p2 p1
>                 p1 z))))
>     z))

Maybe try out (named-let)? It should be fun to rewrite it with tail
calls.

CZY