John Benediktsson <mrjbq7@...> writes: > > > I want to divide an integer by 2 until it gets to 1. > I have this snippet of code that goes into a loop. > dup 1 > [ dup 2 /i ] [ ] if > When it gets to 1 I want to push the elements into a sequence. > > > Take a look at the "produce" word: > > : divide-until-2 ( n -- seq ) > [ dup 1 > ] [ 2 /i dup ] produce nip ;
Hi John, produce is exactly what I was looking for. This needs to go into the cook-book as a useful 1 liner. Graham ------------------------------------------------------------------------------ Live Security Virtual Conference Exclusive live event will cover all the ways today's security and threat landscape has changed and how IT managers can respond. Discussions will include endpoint security, mobile security and the latest in malware threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/ _______________________________________________ Factor-talk mailing list Factor-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/factor-talk
