checksummed-bits ( tuple -- relevant-bits )

Vocabulary

hashcash.private

Inputs

tuple

an object

Outputs

relevant-bits

an object

Definition

USING: accessors kernel math math.functions sequences ;

IN: hashcash.private

: checksummed-bits ( tuple -- relevant-bits )
    dup string>> sha1-checksum swap bits>> 8 / ceiling head
    get-bits ;