15 lines
355 B
Factor
15 lines
355 B
Factor
|
! Copyright (C) 2013 John Benediktsson.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: checksums kernel math sequences ;
|
||
|
|
IN: checksums.bsd
|
||
|
|
|
||
|
|
SINGLETON: bsd
|
||
|
|
|
||
|
|
M: bsd checksum-bytes ( bytes checksum -- value )
|
||
|
|
drop 0 [
|
||
|
|
[ [ -1 shift ] [ 1 bitand 15 shift ] bi + ] dip
|
||
|
|
+ 0xffff bitand
|
||
|
|
] reduce ;
|
||
|
|
|
||
|
|
INSTANCE: bsd checksum
|