Factor Documentation
|
Home
|
Glossary
|
Search
factorcode.org
fixnum-log2 ( x -- n )
Vocabulary
math.integers.private
Inputs and outputs
x
an
object
n
an
object
Definition
USING:
kernel
kernel.private
math
math.private
;
IN:
math.integers.private
:
fixnum-log2
( x -- n )
{
fixnum
}
declare
0
swap
[
dup
1
eq?
]
[
[
1
fixnum+fast
]
[
2/
]
bi*
]
until
drop
;