겸손한 견해로는 너무 적은 답을 가지고있는 이 멋진 도전과 견해 (투표 수와 투표 수에 기초한)에 영감을 받았습니다 .

주어진 문자열 목록을 (어떻게 든) 제공하고 주어진 문자열에서 제거 할 때 문자열의 총 길이 (남은 내용)를 가능한 한 작게 유지하는 문자 세트를 반환합니다 (각각의 방법으로). 고유 한 문자열이며 하나 이상의 문자 길이입니다.

예 :

"날"과 "날"이 주어짐; "ay"문자를 제거하면 지정된 문자열이 "D"및 "d"가되므로 "ay"를 반환합니다.

"Hello World!", "Hello world."및 "Hello world"가 제공됩니다. "Helo Wrd"문자 (공백 포함)를 제거하면 문자열이 "!", "w."및 "w"가되므로 "Helo Wrd"를 반환합니다.

"century", "decade", "year", "month", "week", "day", "hour", "minute"및 "second"가 주어집니다. 주어진 단어가 "centurdowi"일 때 "y", "a", "ya", "mh", "k", "ay", "h", "m", "s"이므로 "centurdowi"를 반환합니다. "이 (가) 제거되었습니다.

반환 된 집합의 순서와 형식은 중요하지 않습니다.

하스켈, 138130 바이트

import Data.List
c=concat
f i=snd$minimum[(length$c q,s)|s<-subsequences$nub$c i,q<-[map(filter(`notElem`s))i],nub q==q,all(>"")q]

사용 예 : f ["century", "decade", "year", "month", "week", "day", "hour", "minute", "second"]-> "centurdoki".

이것은 무차별 대입 방식입니다.

     s<-subsequences$nub$c i  -- concatenate input i to a single string, remove
                              -- duplicates and make a list of all subsequences
       q<-[map(filter(...))i] -- remove chars appearing in subsequence s from all
                              -- input words, call result q
          nub q==q            -- keep those s where q has no duplicates (i.e. each
                              -- resulting string is unique) and
            all(>"")q         -- contains no empty strings
  (length$c q,s)              -- make pairs from all kept s, where the first element
                              -- is the combines length of all strings in q,
                              -- second element is s itself
snd$minimum                   -- find minimum of those pairs and discard length

편집 : @Seeq는 8 바이트를 절약하는 데 도움이되었습니다. 감사!

피스, 34

형식으로 입력을 ["century", "decade", "year", "month", "week", "day", "hour", "minute", "second"]받습니다. 언제나 그렇듯이 골프 팁을 부탁드립니다.

hh.mlsebfqlQl{eTf!}keTm,dm-kdQy{sQ

Pyth, 24 바이트

hols-RNQf<}kJ-RTQ{IJy{sQ

온라인으로 사용해보십시오. 테스트 스위트.

마지막 테스트 케이스는 실행하는 데 약간의 시간이 걸립니다.

와 같은 배열 형식으로 입력을 ["Day", "day"]받습니다.

내가 발견하고 isaacg가 개선 된 또 다른 흥미로운 것 (24 바이트) :

-J{sQhlDsM.A#f{ITm-RdQyJ