date string parsing example for rich1

gistfile1.txt

#lang racket

(define (parse-date-string str)
  (match str
    [(pregexp #px"^(\\d{4})-(\\d{2})-(\\d{2})$" (list _ year month day))
     (list (string->number year)
           (string->number month)
           (string->number day))]))

(parse-date-string "2013-03-10")