1 ! Copyright (C) 2013 John Benediktsson.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: checksums kernel math sequences ;
8 M: bsd checksum-bytes ( bytes checksum -- value )
10 [ [ -1 shift ] [ 1 bitand 15 shift ] bi + ] dip
14 INSTANCE: bsd checksum