(mint) ( tuple counter -- tuple )

Vocabulary

hashcash.private

Inputs

tuple	an object
counter	an object

Outputs

tuple

an object

Definition

USING: kernel math ;

IN: hashcash.private

: (mint) ( tuple counter -- tuple )
    2dup set-suffix checksummed-bits pick valid-guess?
    [ drop ] [ 1 + (mint) ] if ;