8 lines
286 B
Janet
8 lines
286 B
Janet
(def old (peg/compile ~(* (repeat 3 (range "AZ")) " " (repeat 3 (range "09")) -1)))
|
|
(def new (peg/compile ~(* (repeat 4 (range "09")) " " (repeat 3 (range "AZ")) -1)))
|
|
|
|
(defn main [_ arg] (print (cond
|
|
(peg/match old arg) "Old"
|
|
(peg/match new arg) "New"
|
|
true "Not a license plate"
|
|
))) |