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

Vocabulary

noise

Inputs

table	an object
x	an object
y	an object
z	an object

Outputs

aaa	an object
baa	an object
aba	an object
bba	an object
aab	an object
bab	an object
abb	an object
bbb	an object

Definition

USING: math sequences.private ;

IN: noise

:: 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