Handbook
Glossary
sha1-f ( B C D n -- f_nbcd )
Vocabulary
checksums.sha.private
Inputs
B
an
object
C
an
object
D
an
object
n
an
object
Outputs
f_nbcd
an
object
Definition
USING:
combinators
kernel
math
;
IN:
checksums.sha.private
:
sha1-f
( B C D n -- f_nbcd )
20
/i
{
{
0
[
[
over
bitnot
]
dip
bitand
[
bitand
]
dip
bitor
]
}
{
1
[
bitxor
bitxor
]
}
{
2
[
2dup
bitand
[
pick
bitand
[
bitand
]
dip
]
dip
bitor
bitor
]
}
{
3
[
bitxor
bitxor
]
}
}
case
;
inline