christofsteel/aoc2022
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Day 6: 110, slight regression, but optimization potential

Browse source
This commit is contained in:
Christoph Stahl 2022-12-06 10:13:20 +01:00
parent df241c34e1
commit 30eb367487
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
day6.hs
View file

@ -1,3 +1,2 @@
import Data.List
c s n l|nub>>=(==)$take s l=s+n|(_:l)<-l=c s(n+1)l
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)