See project-euler.002 vocabulary :) On Wed, May 4, 2011 at 12:29 AM, Zhe Hu <[email protected]> wrote: > 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 > >
------------------------------------------------------------------------------ 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
