From 26e44e8e8ce660e1d48b1ea33c2429659010657b Mon Sep 17 00:00:00 2001
From: Christoph Stahl <christoph.stahl@uni-dortmund.de>
Date: Tue, 14 Dec 2021 13:42:15 +0100
Subject: [PATCH] Day 13: 365

---
 d13golf.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 d13golf.hs

diff --git a/d13golf.hs b/d13golf.hs
new file mode 100644
index 0000000..c65a1d5
--- /dev/null
+++ b/d13golf.hs
@@ -0,0 +1,10 @@
+import Data.List
+a=map
+p(x,_:y)=s(a(read.('(':).(++")"))x,a(((,).(!!0)<*>read.drop 2).drop 11)y)
+m f=maximum.a f
+d i=[[last$'.':['#'|(x,y)`elem`i]|x<-[0..m(fst)i]]|y<-[0..m(snd)i]]
+x&n=n-abs(n-x)
+i%('x',n)=a(\(x,y)->(x&n,y))i
+i%('y',n)=a(fmap(&n))i 
+s(i,z)=scanl(%)i z
+main=getContents>>=((>>).(mapM putStrLn.d.last)<*>(print.length.nub.(!!1))).p.break(==[]).lines