Miroirs/fOOrth
1
0
Fork 0
mirror of https://github.com/PeterCamilleri/fOOrth synced 2024-11-16 07:47:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions
fOOrth/docs/snippets/int_log2.foorth

8 lines
118 B
Text
Raw Permalink Normal View History

UG update, begin loops.
2015-02-14 16:40:35 +01:00
// A simple integer log2
UG update, updated int_log2 example.
2015-02-16 21:53:40 +01:00
: ilog2 .to_i 2/ 0 swap
begin
UG update, begin loops.
2015-02-14 16:40:35 +01:00
dup 0> while
2/ swap 1+ swap
again
drop ;
Reference in a new issue Copy permalink