steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

checksums.adler-32: make adler-32 instance checksum.

db4
John Benediktsson 2013-04-10 09:24:14 -07:00
parent 7aba741af1
commit ec51815923
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/checksums/adler-32/adler-32.factor
View File

@ -13,3 +13,5 @@ M: adler-32 checksum-bytes ( bytes checksum -- value )
[ sum 1 + ] [ sum 1 + ]
[ [ dup length [1,b] <reversed> v. ] [ length ] bi + ] bi [ [ dup length [1,b] <reversed> v. ] [ length ] bi + ] bi
[ adler-32-modulus mod ] bi@ 16 shift bitor ; [ adler-32-modulus mod ] bi@ 16 shift bitor ;
INSTANCE: adler-32 checksum