checksums.adler-32: make adler-32 instance checksum.
parent
7aba741af1
commit
ec51815923
|
@ -13,3 +13,5 @@ M: adler-32 checksum-bytes ( bytes checksum -- value )
|
|||
[ sum 1 + ]
|
||||
[ [ dup length [1,b] <reversed> v. ] [ length ] bi + ] bi
|
||||
[ adler-32-modulus mod ] bi@ 16 shift bitor ;
|
||||
|
||||
INSTANCE: adler-32 checksum
|
||||
|
|
Loading…
Reference in New Issue