blob: f427be9ec29ed8fe8952da930e3062141089d126 (
plain)
1
2
3
4
5
6
7
8
9
|
@(include `@stdlib/txr-case`)
@(define date (year month day))
@{year /\d\d\d\d/}-@{month /\d\d/}-@{day /\d\d/}
@(end)
@(do
(each ((date '("09-10-20" "2009-10-20" "July-15-2014" "foo")))
(txr-if date (y m d) date
(put-line `match: year @y, month @m, day @d`)
(put-line `no match for @date`))))
|
