Handbook
Glossary
s1-256 ( x -- x' )
Vocabulary
checksums.sha.private
Inputs
x
an
object
Outputs
x'
an
object
Definition
USING:
combinators.smart
kernel
math
math.bitwise
;
IN:
checksums.sha.private
:
s1-256
( x -- x' )
[
[
-17
bitroll-32
]
[
-19
bitroll-32
]
[
-10
shift
]
tri
]
[
bitxor
]
reduce-outputs
;
inline