loop-answer ( x n -- answer )

Vocabulary

compiler.cfg.value-numbering.global.validation

Inputs

x	an object
n	an object

Outputs

answer

an object

Definition

USING: math sequences ;

IN: compiler.cfg.value-numbering.global.validation

:: loop-answer ( x n -- answer )
    n <iota> [ x 31 bitxor bitxor ] map-sum x 31 bitxor bitxor ;