trailing-zeros ( m -- n ) (original) (raw)

trailing-zeros ( m -- n )

Vocabulary
math.cardinality

Inputs

Outputs

Word description
Counts the number of trailing 0 bits in m, returning fixnum-bits if the number is zero.

Definition

IN: math.cardinality

GENERIC: trailing-zeros ( m -- n )

Methods

USING: kernel layouts math math.cardinality ;

M: fixnum trailing-zeros
[ fixnum-bits ]
[ 0 [ over even? ] [ [ 2/ ] [ 1 + ] bi* ] while nip ]
if-zero ;