validate.txt


\ 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= ;


  HTMLized by Forth2HTML