valid-date? ( yymmdd: string -- ? )
Hashcash
Prev:valid-stamp? ( stamp -- ? )
Next:hashcash


Vocabulary
hashcash

Inputs
yymmdda string


Outputs
?an object


Definition
USING: hashcash.private kernel math namespaces typed ;

IN: hashcash

TYPED: valid-date? ( yymmdd: string -- ? )
on-or-before-today? [ expiry-days get <= ] [ drop f ] if ;