mirror of
https://github.com/PeterCamilleri/fOOrth
synced 2024-11-16 07:47:56 +01:00
7 lines
118 B
Text
7 lines
118 B
Text
// A simple integer log2
|
|
: ilog2 .to_i 2/ 0 swap
|
|
begin
|
|
dup 0> while
|
|
2/ swap 1+ swap
|
|
again
|
|
drop ;
|