From efee7902e8c713f3109853dea4289e569ed28e8b Mon Sep 17 00:00:00 2001
From: Christoph Stahl <christoph.stahl@tu-dortmund.de>
Date: Tue, 6 Dec 2022 13:05:04 +0100
Subject: [PATCH] Day 6: 93

---
 day6.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/day6.hs b/day6.hs
index 7d3be90..ee688b0 100644
--- a/day6.hs
+++ b/day6.hs
@@ -1,2 +1,2 @@
-c s n l|l<-take s l,[0|x<-l,y<-l,x==y]<=(0<$l)=s+n|(_:l)<-l=c s(n+1)l
-main=interact$show.((,).c 4 0<*>c 14 0)
+main=interact$show.(<$>[4,14]).(%)
+l%s|l<-take s l,sum[1|x<-l,y<-l,x==y]==s=s|(_:l)<-l=1+l%s