Thanks Alex!

This makes sense to me now...

(de Fibonacci (N)
   (let (F (list 2 1 1))
      (cond
         ((= N 0) 0)
         ((= N 1) (caddr F))
         ((= N 2) (cadr F))
         (T
            (do (- N 3)
               (rot F)
               (set F (+ (cadr F) (caddr F))) )
            (car F) ) ) ) )

/Lindsay


On Sat, Mar 11, 2017 at 11:35 AM, Alexander Burger <a...@software-lab.de>
wrote:

> On Sat, Mar 11, 2017 at 11:20:21AM -0800, Lindsay John Lawrence wrote:
> > Nm... After tinkering in the debugger.. using 'pp etc..
> > I get it. I am still getting the  (= code data) in picolisp.
>
> Cool! Our mails overlapped! :)
>
> ♪♫ Alex
> --
> UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
>

Reply via email to