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 >