timestamp>yymmdd ( timestamp -- yymmdd: string )
Hashcash

Prev:	yymmdd-gmt>timestamp ( yymmdd: string -- timestamp )
Next:	lastn-digits ( n digits -- string )

Vocabulary
hashcash.private

Inputs

timestamp

an object

Outputs

yymmdd

a string

Definition

USING: accessors calendar.format kernel sequences typed ;

IN: hashcash.private

TYPED: timestamp>yymmdd ( timestamp -- yymmdd: string )
    [ year>> 2 lastn-digits ] [ month>> pad-00 ]
    [ day>> pad-00 ] tri 3append ;