wi ( F φ β n parity? -- wi wi? )

Vocabulary

math.parser.private

Inputs

F	an object
φ	an object
β	an object
n	an object
parity?	an object

Outputs

wi	an object
wi?	an object

Definition

USING: kernel math ;

IN: math.parser.private

:: wi ( F φ β n parity? -- wi wi? )
    F 2 * n + φ * β 128 -
    [ shift parity? [ odd? ] when ] [ neg 2^ 1 - bitand zero? ]
    2bi ; inline