From 6053c185cd274813f28d43ae1aff6dd2283b4d7c Mon Sep 17 00:00:00 2001
From: Christoph Stahl <christoph.stahl@tu-dortmund.de>
Date: Wed, 15 Dec 2021 11:03:37 +0100
Subject: [PATCH] Day 14: Works for Part 1... sad

---
 d14golf.hs | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 d14golf.hs

diff --git a/d14golf.hs b/d14golf.hs
new file mode 100644
index 0000000..4d40961
--- /dev/null
+++ b/d14golf.hs
@@ -0,0 +1,9 @@
+import Data.List
+l=readFile"d14small"
+i :: [(String, Char)] -> String -> String
+i r[x] = [x]
+i r(a:b:x)|Just c<-lookup [a,b] r=a:c:i r(b:x)
+
+parse :: String -> ([String],[(String, Char)])
+parse = fmap (map((,).take 2<*>(!!6)).tail).break(==[]).lines
+main=interact$show.length.(!!40).(\([x],r)->iterate(i r)x).parse
\ No newline at end of file