Bir pangram her harfi içeren bir dizedir a- zİngilizce alfabe, küçük harf duyarsız ait. (Pangram bir harfin birden fazla kopyasını içeriyorsa veya harflere ek olarak harf olmayan karakterler içeriyorsa sorun yoktur.)

Girdi dizelerin bir listesi olan ve aşağıdaki özelliklere sahip bir veya daha fazla dizeyi çıkaran bir program veya işlev yazın:

• Her çıkış dizesi bir pangram olmalıdır.
• Her çıkış dizesi, giriş listesinden boşluklarla ayrılmış bir veya daha fazla dizeyi birleştirerek oluşturulmalıdır.
• Her çıkış dizgisi, bu özelliklere sahip tüm dizeler arasında en kısa veya en kısa için bağlı olmalıdır.

Birçok program yalnızca bir dize çıkarmayı seçecektir; çıktıyı sınırlamak için ek kod yazmak zorunda kalırsanız yalnızca birden fazla dize çıktısını almak istersiniz.

Girdinin yazdırılamaz karakterler veya boşluklar içermediğini ve içindeki hiçbir sözcüğün karakter uzunluğundan (liste uzunluğunun doğal logaritmasının 26 katı) uzun olduğunu varsayabilirsiniz. (Ancak, girdinin harflerden veya yalnızca küçük harflerden başka bir şey içermediğini varsayamazsınız; noktalama işaretleri ve büyük harfler tamamen mümkündür.)

Giriş ve çıkış herhangi bir makul formatta verilebilir. Programınızı test etmek için, iki test vakası kullanmanızı öneririm: İngilizce kelimelerin sözlüğü (çoğu bilgisayarda bir tane vardır) ve aşağıdaki durum (bunun için mükemmel (26 harfli) bir pangramın imkansız olduğu için bir tane bulmanız gerekir yinelenen harfler içeren):

abcdefghi
defghijkl
ijklmnop
lmnopqrs
opqrstuvw
rstuvwxyz

Programınızın çıktısının bir örneğini gönderiminize dahil etmelisiniz. (Bu, farklı kelime listeleri kullanmanın bir sonucu olarak farklı insanlar için farklı olabilir.)

Zafer koşulu

Bu kısıtlı karmaşıklıkta bir kod-golf meydan okumadır. Kazanan, polinom zamanında çalışan en kısa programdır (bayt cinsinden) . (Bunun ne anlama geldiğini bilmeyen insanlar için bir özet: kelime listesinin boyutunu iki katına çıkarırsanız, program sabit bir faktörden daha yavaş olmamalıdır. Ancak, söz konusu sabit faktör sizin kadar büyük olabilir Örneğin, dört kat daha yavaş veya sekiz kat daha yavaş olması geçerlidir, ancak kelime listesinin uzunluğuna göre daha küçük olması için geçerli değildir; yavaşlama faktörü sınırlanmalıdır.)

Ruby 159 (yinelemeli)

Yakut 227 220 229 227 221 (özyinelemeli)

Yeni yinelemeli çözüm (@Niel tarafından açıklanan algoritmaya dayanarak):

c={('A'..'Z').to_a=>""}
while l=gets
d=c.clone
c.map{|k,v|j=k-l.upcase.chars
w=v+" "+l.strip
d[j]=w if !c[j]||c[j].size<w.size}
c=d
end
x=c[[]]
p x[1..-1] if x

Eski özyinelemeli çözüm:

W=[]
while l=gets
W<<l.strip
end
I=W.join(" ")+"!!"
C={[]=>""}
def o(r)if C[r]
C[r]
else
b=I
W.map{|x|s=r-x.upcase.chars
if s!=r
c=x+" "+o(s)
b=c if c.size<b.size
end}
C[r]=b
end
end
r=o ('A'..'Z').to_a
p r[0..-2] if r!=I

Bayt ölçümü, önemli olmayan dosyadaki son satırsonu bırakılmasına dayanır ruby 2.3.1p112. Küçük bir hatayı düzelttikten sonra bayt sayısı arttı (ekleme.downcase .upcase sorun ifadesinin gerektirdiği şekilde büyük / küçük harfe duyarsızlık için).

Tanımlayıcıları kısaltmadan önceki bir sürüm:

#!/usr/bin/env ruby

$words = [];

while (line=gets)
  $words << line[0..-2];
end

$impossible = $words.join(" ")+"!!";

$cache = {};

def optimize(remaining)
  return $cache[remaining] if ($cache[remaining]);
  return "" if (remaining == []);

  best = $impossible;

  $words.each{|word|
    remaining2 = remaining - word.chars;
    if (remaining2 != remaining)
      curr = word + " " + optimize(remaining2);
      best = curr if (curr.length < best.length);
    end
  };

  $stderr.puts("optimize(#{remaining.inspect})=#{best.inspect}");

  return $cache[remaining] = best;
end

result = optimize(('a'..'z').to_a);

puts(result[0..-1]);

O nasıl çalışır? Temelde hala kapsanan bir karakter kümesini korur ve sadece bir kelimeyi ortaya çıkarılan seti azaltacaksa çağıtır. Ayrıca, özyineleme sonuçları not edilir. Her 2 ^ 26 alt kümesi bir not tablosu girişine karşılık gelir. Bu tür her bir girdi, girdi dosyasının boyutuyla orantılı olarak hesaplanır. Yani her şey O(N)( Ngiriş dosyasının boyutu nerede ), büyük bir sabit olsa da.

JavaScript (ES6), 249 248 bayt, muhtemelen rakip

a=>a.map(w=>w.replace(/[a-z]/gi,c=>b|=1<<parseInt(c,36)-9,b=0,l=w.length)&&(m.get(b)||[])[0]<l||m.set(b,[l,w]),m=new Map)&&[...m].map(([b,[l,w]])=>m.forEach(([t,s],e)=>(m.get(e|=b)||[])[0]<=t+l||m.set(e,[t+l+1,s+' '+w])))&&(m.get(-2^-1<<27)||[])[1]

Açıklama: Harfleri bir bit maskesine dönüştürerek diziyi dönüştürür ve bir haritadaki her bit maskesi için en kısa sözcüğü kaydeder. Daha sonra haritanın bir kopyası üzerinde yineleyerek, elde edilen dize daha kısa olacaksa, her bir kombine bit maskesini ekleyerek haritayı büyütün. Son olarak, bir pangrama karşılık gelen bitmap için kaydedilen dizeyi döndürün. ( undefinedBöyle bir dize yoksa döndürür .)

Python 3, 98 , 94 , 92 bayt

print([s for s in input().split()if sum([1 for c in range(65,91)if chr(c)in s.upper()])>25])

Alfabenin ASCII gösterimi ile yinelenir ve harf dizede bulunursa listeye 1 ekler. Listenin toplamı 25'ten büyükse, alfabenin tüm harflerini içerir ve yazdırılır.