2 lines
110 B
Haskell
2 lines
110 B
Haskell
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)
|