Initial work

2023-11-01 08:55:40 +00:00
parent 996ea45153
commit 688d1ec426
48 changed files with 1148 additions and 0 deletions
--- a/CS1032/practical-2023-09-27/challenges-5.janet
+++ b/CS1032/practical-2023-09-27/challenges-5.janet
@@ -0,0 +1,8 @@
+(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"
+)))