More convenient folder name

2020-12-04 17:05:20 -07:00
parent 2cacce20d8
commit 3ea6ec7d47
21 changed files with 0 additions and 0 deletions
--- a/projects/aoc/src/year2020/Passports.kiss
+++ b/projects/aoc/src/year2020/Passports.kiss
@@ -0,0 +1,39 @@
+(defun readPassport [:Stream stream &opt :Map<String,String> pp]
+    (set pp (or pp (new Map<String,String>)))
+    (when (stream.isEmpty) (return pp))
+    (let [key (stream.expect "passport key" (lambda [] (stream.takeUntilAndDrop ":")))
+                value (stream.expect "passport value" (lambda [] (stream.takeUntilOneOf [" " #|"\n"|#])))]
+        (dict-set pp key value))
+    (if (= #|"\n\n"|# (try (stream.expect "paragraph break" (lambda [] (stream.peekChars 2))) (catch [e] "")))
+            (begin (stream.dropWhitespace) pp)
+        (begin (stream.dropWhitespace) (readPassport stream pp))))
+
+(defun checkPassport [:Map<String,String> pp strict]
+    (doFor key ["byr" "iyr" "eyr" "hgt" "hcl" "ecl" "pid"]
+        (if !(pp.exists key) (return false)))
+    (when strict
+        (unless (<= 1920 (Std.parseInt (dict-get pp "byr")) 2002) (return false))
+        (unless (<= 2010 (Std.parseInt (dict-get pp "iyr")) 2020) (return false))
+        (unless (<= 2020 (Std.parseInt (dict-get pp "eyr")) 2030) (return false))
+        (let [hgt (dict-get pp "hgt")
+                    [min max] (cond ((hgt.endsWith "cm") [150 193]) ((hgt.endsWith "in") [59 76]) (true (return false)))]
+            (unless (<= min (Std.parseInt hgt) max) (return false)))
+        (let [hcl (dict-get pp "hcl")]
+            (unless (and 
+                        (hcl.startsWith "#")
+                        (= hcl.length 7)
+                        (apply = (.concat [true] 
+                            (for c (.split (hcl.substr 1) "")
+                                (<= 0 (.indexOf (.split "0123456789abcdef" "") c))))))
+                (return false)))
+        (let [ecl (dict-get pp "ecl")]
+            (unless (<= 0 (.indexOf (.split "amb blu brn gry grn hzl oth" " ") ecl)) (return false)))
+        (let [pid (dict-get pp "pid")]
+            (unless (and (= 9 pid.length) (Std.parseInt pid)) (return false))))
+    (return true))
+
+(defun countValidPassports [:Stream stream &opt strict c]
+    (unless c (set c 0))
+    (if (stream.isEmpty)
+            c
+        (countValidPassports stream strict (if (checkPassport (readPassport stream) strict) (+ c 1) c))))