3 lines
108 B
Haskell
3 lines
108 B
Haskell
import Data.List
|
|
c s n l|nub>>=(==)$take s l=s+n|(_:l)<-l=c s(n+1)l
|
|
main=interact$show.((,).c 4 0<*>c 14 0)
|