bit-pos ( n -- byte mask/f )

Vocabulary

math.primes.erato.private

Inputs

n

an object

Outputs

byte	an object
mask/f	an object

Definition

USING: kernel.private math sequences.private ;

IN: math.primes.erato.private

: bit-pos ( n -- byte mask/f )
    { fixnum } declare 30 /mod masks nth-unsafe
    { maybe{ fixnum } } declare ; inline