From f2afc59d520cebef23416e7f9907e7e0e59c4dee Mon Sep 17 00:00:00 2001
From: Mart Lubbers <mart@martlubbers.net>
Date: Fri, 4 Dec 2020 09:44:32 +0100
Subject: [PATCH] guard the frobbing regexes

---
 4/one.icl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/4/one.icl b/4/one.icl
index 48744d4..5e7f5f0 100644
--- a/4/one.icl
+++ b/4/one.icl
@@ -27,7 +27,6 @@ Start w
 	= (one passports, two passports)
 
 one = length o filter (valid [(n, const True)\\n<-["byr", "iyr", "eyr", "hgt", "hcl", "ecl", "pid"]])
-
 two = length o filter (valid
 	[ ("byr", fourDigit 1920 2002)
 	, ("iyr", fourDigit 2010 2020)
@@ -41,5 +40,5 @@ two = length o filter (valid
 	, ("pid", reg "\\d{9}")
 	])
 fourDigit lo hi x = reg "\\d{4}" x && between lo hi (toInt x)
-reg p = not o isEmpty o match p
+reg p = not o isEmpty o match ("^"+++p+++"$")
 between lo hi x = x >= lo && x <= hi
-- 
2.20.1