memory-loop-answer ( value n -- result )


Vocabulary
compiler.cfg.memory-optimization.validation

Inputs
valuean object
nan object


Outputs
resultan object


Definition
USING: combinators math ;

IN: compiler.cfg.memory-optimization.validation

:: memory-loop-answer ( value n -- result )
value value 3 bitand bitxor
:> even-result value value 1 bitand bitxor
:> odd-result n 4 mod {
{ 0 [ 0 ] }
{ 1 [ even-result ] }
{ 2 [ even-result odd-result bitxor ] }
{ 3 [ odd-result ] }
} case ;