\ validate 05.07.30 NAB
needs calendar
: 3= ( a1 b1 c1 a2 b2 c2 -- bool )
\ Compare two sets of three values.
rot >r d= swap r> = and ;
: 3dup ( a b c -- a b c a b c )
\ Duplicate three stack items.
dup 2over rot ;
: validate ( d m y -- bool )
\ Test a date for validity.
3dup dmy>date date>dmy 3= ;