Handbook
Glossary
on-or-before-today? ( yymmdd: string -- x ? )
Hashcash
Prev:
expiry-days
Next:
now-gmt-yymmdd ( -- yymmdd: string )
Vocabulary
hashcash.private
Inputs
yymmdd
a
string
Outputs
x
an
object
?
an
object
Definition
USING:
kernel
math
typed
;
IN:
hashcash.private
TYPED:
on-or-before-today?
( yymmdd: string -- x ? )
now-gmt-yymmdd
swap
yymmdd-gmt-diff
dup
0
>=
;