hashes ( table x y z -- aaa baa aba bba aab bab abb bbb )


Vocabulary
noise

Inputs
tablean object
xan object
yan object
zan object


Outputs
aaaan object
baaan object
abaan object
bbaan object
aaban object
baban object
abban object
bbban object


Definition


:: hashes ( table x y z -- aaa baa aba bba aab bab abb bbb )
x table nth-unsafe y + :> a x 1 + table nth-unsafe y +
:> b a table nth-unsafe z + :> aa b table nth-unsafe z +
:> ba a 1 + table nth-unsafe z + :> ab b 1 +
table nth-unsafe z + :> bb aa table nth-unsafe
ba table nth-unsafe ab table nth-unsafe bb table nth-unsafe
aa 1 + table nth-unsafe ba 1 + table nth-unsafe ab 1 +
table nth-unsafe bb 1 + table nth-unsafe ; inline