internet
Internet checksum

Vocabulary
checksums.internet

Class description
Internet (RFC1071) checksum algorithm.

Definition

IN: checksums.internet

SINGLETON: internet

Methods

USING: checksums checksums.internet grouping io.binary kernel
math sequences ;

M: internet checksum-bytes
    drop 2 <groups> [ le> ] map-sum
    [ -16 shift ] [ 65535 bitand ] bi + [ -16 shift ] keep +
    bitnot 2 >le ;