Merhaba dünya ruhu içinde ! tekrarlama olmadan

İsteğe bağlı satırsonu "hızlı kahverengi tilki tembel köpeğin üstünden atlar" dizesini yazdıran bir program yazın. Tüm program hiçbir karakteri tekrarlamamalıdır.

Dize basılacak o Not yapar nasılsa bu tip bir kısıtlama etrafında almak zorunda kalacak, böylece tekrar karakterleri.

Kazanan koşulun popülerlik yarışması olduğunu unutmayın , yani en yüksek oyu alan cevap kazanır.

Güncelleme: Bunu biraz daha kolaylaştırmak için tekrarlamaya izin verilir, ancak en aza indirmeye çalışmalısınız. Tekrarlı (veya hiç) tekrar olmayan programlara, tekrarlı programlara göre öncelik verilir.

97'den 2003'e kadar Microsoft Word (ve bazı Mac Word sürümleri) - 10 karakter

Tekrar yok, ancak özelliklerle tam olarak eşleşmiyor - 10 karakter:

=rand(2,1)

Çıktı:

The quick brown fox jumps over the lazy dog.
The quick brown fox jumps over the lazy dog.

Büyük / küçük harf ve noktalama işaretleri dışındaki özelliklerle eşleşir, bir tekrar - 10 karakter:

=rand(1,1)

Çıktı:

The quick brown fox jumps over the lazy dog.

Microsoft Word yeni versiyonları kullanan =rand.old(1,1)hangi çiftleri dve 1.

Bir alanı {=SUM(3,-2)}rand () girdisi olarak kullanmanın bir yolu olabilir , ancak yüklemem alanlarla ilgili sorunlar yaşıyor - yani çalışmıyorlar ...

"Bob" {=SUM(3,-2)}ilkini değiştirmek için (bazı zorluklarla) kullanılabileceğini doğruladı 1, ancak =tekrarlandı ...

=rand({=SUM(3,-2)},1)

SUMÖncelikle Word'ü güncellemeniz koşuluyla çıktı:

The quick brown fox jumps over the lazy dog.

Kaydırma - 36 karakter

덆둥긇굵늖꽫긆깲닷덮긂롦닲롸껂걪덖륰댲걯덦넬댢건늆넠닆굺뎒걤닶댬首坼

(boş girdi bekliyor)

Açıklama:

Push the string "the quick brown ,fo,x, jumps ove,r the lazy dog,"
덆둥긇굵늖꽫긆깲닷덮긂롦닲롸껂걪덖륰댲걯덦넬댢건늆넠닆굺뎒걤닶댬
Retrieve last character from the string (",")
首
Regular expression string-split
坼

Sonuç, ["the quick brown ", "fo", "x", " jumps ove", "r the lazy dog", ""]çıktı için otomatik olarak tek bir dizeye birleştirilen listedir .

Perl 6 (76 karakter, çift yok)

Senaryo (pano yazılımı tarafından yönetilecek, ancak Thin Space ve NL ve LF ve sekmeye kadar En Space var)

say　EVAL    lc q{<the Quiţk Brown fïX jUmpS ůvťɲ Tɨå ìšzY dOg>~&(127.CHR
x
43)}

• EVAL (büyük harf için tekrar teşekkürler) kullanır ve <foo bar>kelime ayırıcı olarak tüm özel boşluk karakterlerini destekleyen kelimeleri alıntılar.
• say boşluk kullanarak dizeler listesine katılır, burada güzel çalışıyor :)
• Sonra ~&düz ascii karıştırmak için 127 ve kullanın . Ekstra komplikasyon: 'Ŭ'.lcolur 'ŭ'o bir haline gelmesi syerine rihtiyaç I. 128 ekstra süre eklemek yardımcı olur :)

Unicode karakterler yerine ters eğik çizgi içeren bir sürüm, hepsinin farklı olduğunu göstermek için kaçar

say\x[3000]EVAL\x[9]lc q{<the\x[2003]Qui\x[163]k\x[2004]Brown\x[2005]f\x[EF]X\x[2006]jUmpS\x[2007]\x[16F]v\x[165]\x[272]\x[2008]T\x[268]\x[E5]\x[2009]\x[EC]\x[161]zY\x[200A]dOg>~&(127.CHR\x[0A]x\x[0D]43)}

Hepsinin benzersiz olduğunu doğrulamak istiyorsanız, bu komut dosyasını kullanın ( Qb"string"yalnızca ters eğik çizgi kaçışlarıyla temel alıntı yapardım )

.say for 
Qb"say\x[3000]EVAL\x[9]lc q{<the\x[2003]Qui\x[163]k\x[2004]Brown\x[2005]f\x[EF]X\x[2006]jUmpS\x[2007]\x[16F]v\x[165]\x[272]\x[2008]T\x[268]\x[E5]\x[2009]\x[EC]\x[161]zY\x[200A]dOg>~&(127.CHR\x[0A]x\x[0D]43)}"
.comb.Bag.grep(*.value > 1).map: {.key.ord.base(16) ~ " $_"  }

Veya doğrudan kullanarak

EVAL Qb"say\x[3000]EVAL\x[9]lc q{<the\x[2003]Qui\x[163]k\x[2004]Brown\x[2005]f\x[EF]X\x[2006]jUmpS\x[2007]\x[16F]v\x[165]\x[272]\x[2008]T\x[268]\x[E5]\x[2009]\x[EC]\x[161]zY\x[200A]dOg>~&(127.CHR\x[0A]x\x[0D]43)}"

PHP - 67 bayt

<?echo$g^¶¥€¼½ˆ•.${~˜}=ÂÍåœÌýü¡¦Åþ¾’‹Ï†£‘ƲáºëÓâæݗߙ󖎸·³ø‰ï®ÜØÔ;

Kopyala-Yapıştır, Latin-1 (Ansi) olarak kaydedin.

Bu, dizeyi kullanan 7 baytlık bir xor-şifredir ¶¥€¼½ˆ• tuz .

Bir tekrarlanan karakter: $.

Haskell, 71 karakter

map(\c->chr$mod(ord c)128)"tŨeఠquiţkĠbŲɯwnȠfѯxРjѵŭŰsܠůvťѲठѴѨѥਠlšzyଠɤկg"

Yine başka bir 7-bit modulo çözümü.

Tekrarlanan karakterler:

c 3
d 2
m 2
o 2
r 2
( 2
) 2
" 2

Haskell ile ilk kez golf; dilde daha deneyimli herkes, geliştirmek için çekinmeyin. Bir değişkenden iki kez bahsetmekten kaçınmak için anonim işlevi noktasız yapmak istedim, ancak bunun net bir fayda olup olmadığını bilmiyorum.

JS, 35

btoa("¶ªº'$nº0ú1驲ޮØ^¬òv")

(evet ... çifte teklif tekrarlanıyor. ve çıktı kötü. Henüz ciddi bir cevap değil.)

Toplu Komut Dosyası: 7 bayt

echo %1

Komut dosyası hello.bat ise, komut satırına şunu yazın:

hello.bat "The quick brown fox jumps over the lazy dog"