100/mod ( n -- t ρ≠0? )

Vocabulary

math.parser.private

Inputs

n

an object

Outputs

t	an object
ρ≠0?	an object

Definition

USING: kernel math ;

IN: math.parser.private

: 100/mod ( n -- t ρ≠0? )
    656 * [ -16 shift ] [ 16 2^ 1 - bitand 656 >= ] bi ; inline