受启发 这一奇妙的挑战（基于观点和投票的数量）的，以我的拙见，答案太少了。

给定（通过任何方式）字符串列表，返回（通过任何方式）一组字母，当从给定字符串中删除这些字母时，它们（剩余的字符串）的总长度应尽可能小，同时保持每个字母的长度字符串唯一且至少一个字符长。

例子：

给定“日”和“日”；返回“ ay”，因为删除字符“ ay”时给定的字符串将是“ D”和“ d”。

给定“ Hello World！”，“ Hello world。”和“ Hello world”；之所以返回“ Helo Wrd”，是因为删除字符“ Helo Wrd”（带空格）时，字符串将为“！”，“ w。”和“ w”。

给定“世纪”，“十年”，“年”，“月”，“周”，“日”，“小时”，“分钟”和“秒”；返回“ centurdowi”，因为当字符“ centurdowi”给定的单词将是“ y”，“ a”，“ ya”，“ mh”，“ k”，“ ay”，“ h”，“ m”，“ s” ”已删除。

返回集的顺序和格式并不重要。

Haskell，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