home .. forth .. colorforth mail list archive ..

Re: [colorforth] Fibonacci numbers


Nice work! I think that demonstrates a useful and general looping
construct, not to mention a simple one.

Mark

On Thu, 28 Nov 2002, Peter Appelman wrote:

> Mark,
>
> lets not stop there:
>
> : fib push 1 dup pop -2 +
> : f -if drop nip ; then push swap over + pop -1 + f ;
>
> Regards,
> Peter.
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: colorforth-unsubscribe@xxxxxxxxxxxxxxxxxx
> For additional commands, e-mail: colorforth-help@xxxxxxxxxxxxxxxxxx
>
>


---------------------------------------------------------------------
To unsubscribe, e-mail: colorforth-unsubscribe@xxxxxxxxxxxxxxxxxx
For additional commands, e-mail: colorforth-help@xxxxxxxxxxxxxxxxxx