Hi,
My Factor code on Project Euler Problem 2. It's not very good. Please help
improve. Thanks
: nxt ( a b -- b 4b+a ) dup 4 * rot + ;
:: eu2 ( a! b! p! -- f ) [ b 4000000 < ] [ a b nxt b! a! b 4000000 < [ b p +
p! ] when ] while p ;
2 8 10 eu2
http://ichbinmegatron.wordpress.com/
http://en.wikibooks.org/wiki/Project_Euler:_Mathematica,_F_Sharp_companion
------------------------------------------------------------------------------
WhatsUp Gold - Download Free Network Management Software
The most intuitive, comprehensive, and cost-effective network
management toolset available today. Delivers lowest initial
acquisition cost and overall TCO of any competing solution.
http://p.sf.net/sfu/whatsupgold-sd
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
