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

Day 6: 93

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

4
day6.hs
View file

@ -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.(<$>[4,14]).(%)
main=interact$show.((,).c 4 0<*>c 14 0) l%s|l<-take s l,sum[1|x<-l,y<-l,x==y]==s=s|(_:l)<-l=1+l%s