Add '2020/day4.ahk'

2020/day4.ahk

@@ -0,0 +1,38 @@
+#SingleInstance, Force
+loc := A_ScriptDir "\data4.txt"
+file := FileOpen(loc, "r")
+i++
+data := {}
+byrR := "\A19[2-9]\d\Z|\A200[0-2]\Z"
+iyrR := "\A201\d\Z|\A2020\Z"
+eyrR := "\A202\d\Z|\A2030\Z"
+hgtR := "\A(1[5-8]\d|19[0-3])cm\Z|\A(59|6\d|7[0-6])in\Z"
+hclR := "\A#(\d|[a-z]){6}\Z"
+eclR := "\A(amb)\Z|\A(blu)\Z|\A(brn)\Z|\A(gry)\Z|\A(grn)\Z|\A(hzl)\Z|\A(oth)\Z"
+pidR :=	"\A\d{9}\Z"
+
+while !(file.AtEOF){
+	line := file.ReadLine()
+	If (line ~= "^(\s)"){
+		i++
+	} Else {
+		For _, pair in StrSplit(line, A_Space, " `n")
+			If (sep := InStr(pair, ":"))
+				data[i, SubStr(pair, 1, sep - 1)] := SubStr(pair, sep + 1)
+	}
+	
+	If (data[i].byr != "" && data[i].iyr != "" && data[i].eyr != "" && data[i].hgt != "" && data[i].hcl != "" && data[i].ecl != "" && data[i].pid != "")
+		p1++
+	If (data[i].byr ~= byrR && data[i].iyr ~= iyrR && data[i].eyr ~= eyrR && data[i].hgt ~= hgtR && data[i].hcl ~= hclR && data[i].ecl ~= eclR && data[i].pid ~= pidR)
+		p2++
+}
+
+dialog("Part 1:`t" p1 "`nPart 2:`t" p2)
+
+dialog(str){
+	MsgBox, 1,, %str%
+	IfMsgBox, Cancel
+		Run, day4.ahk
+}
+
+;	dialog("Number: " i "`nbyr:`t" data[i].byr "`niyr:`t" data[i].iyr "`neyr:`t" data[i].eyr "`necl:`t" data[i].ecl "`nhgt:`t" data[i].hgt "`nhcl:`t" data[i].hcl "`ncid:`t" data[i].cid "`npid:`t" data[i].pid "`n`nTotal valid so far:`t" p1)