Mümkün olduğunca kısa (bayt-sayımla ölçüldüğü gibi), girdi almayan, yorum içermeyen ve birleştirilmiş bir program + çıktısının tam olarak 95 karakter uzunluğunda ve yazdırılabilir her ASCII karakterini içerecek şekilde bir karakter dizesi / sırası çıkaran bir program yazın tam olarak bir kez , yani program + çıktı, ASCII kodları 32-126 olan 95 karakterin bir permütasyonudur:

 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ 

Beraberlik durumunda kazanan, Levenshtein düzenleme mesafesi ile ölçülen (95 karakterlik) birleştirilmiş program + çıkışı yukarıdaki dizeye en yakın olan giriştir (yani tek karakterli silme, ekleme veya ASCII sırasına koymak için gerekli ikameler).

GolfScript, 14 karakter

{`),32>46-^}.~

Çıktı :

 !"#$%&'(*+/015789:;<=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]_abcdefghijklmnopqrstuvwxyz|

Perl, 89 karakter

Bu şimdiye kadar yapabildiğim en iyisi:

q< !"#%&'()+/8:?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\^_`abcdefghjklmosuvwxz|>;
print~-$=.73*2,y[]{}

Perl minutae bilen olmayanlar için, iki argüman printifadesi olarak render olabilir ~(-($=)) . (73 * 2)ve tr///.

Program 6 karakter çıkarır:

591460

Perl'de düsünebilirz Maalesef her yineleme yapısı ( for, while, until, map, grep) ile hisse en az bir karakter print. Çıktıda yeni satırların görünmesine izin verildiyse, 87 karakterlik bir çözüm eklemek için Perl 5.010'u kullanabilirim:

q{ !"#%&'*,-./0:;>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^`bcdfgjkmnoprtuvxz|~}while($_+=say)<9

PHP 67 bayt

<?=U4eB1gkFdA6J9snZD2IE8y5PhwQV^xHGmqYMfNjKpbR3vcLalCWi0_TtrOSXouz;

Çıktı:

-|"/@>& *+}:[!],'~(){.\`7#%$

Görünüşe göre, sadece 28 yerine 30 karakter çıkaran 65 baytlık bir çözüm olmalı, ancak sıraya giremedim. Kullanılmayan 6 karakter OSXouz, bunun yerine dize değişmezlerinden birine yapıştırılmıştır.

Düzenleme: Daha fazla yansıma üzerine, bu şekilde 28'den fazla karakter oluşturmak mümkün değildir. UPPER ^ lowerher zaman 32 ile 63 arasında bir karakterle sonuçlanır, bu nedenle 10 hanenin tümü için gereklidir @[\]_`{|}~. Kalan 22 koddan dördü senaryoda kullanılmaktadır ve sadece 18 harfle elde edilebilmektedir. Bununla birlikte, tiebreaker önemli ölçüde geliştirilebilir.

Ruby, 91 karakter

%{ !"#$&\',-/450:<=>ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcefghijklmnqvwxyz|~};puts(?@‌​.ord*98+1)

Çıktılar 6273.

%{...} Jan Dvorak'dan çalınan numara

Perl, 61 karakter

print$:x8^CJIBQTOWAEULHVGFNMKRPZY,q<#"/;*g~?|={.>&+u15m97ws26

Çıktı:

c@db[yo]le_ah\jfD`kX}zS-! %)('v304

$:varsayılan olarak " \n-". x8sekiz kez tekrarlar; 24 karakterli sonuç daha sonra 23 karakterlik bir barestring ile bitsel olarak xored (sonuncusu -olduğu gibi bırakılır). İkinci bölüm 12 karakterlik bir q-string bitsel ve 10 karakterlik bir barestring (son 2 karakter atılır).

Ruby, 95 karakter, 6 düzenleme

%{ !"#$&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz|~}

Evet. Bu kadar. Hiçbir zaman basılmayan serbest kayan bir dize hazır bilgisi. Ruby yüzde-tipi-sınırlayıcı biçiminde dize değişmezlerini (Perl'den ödünç alır) destekler - sınırlayıcı herhangi bir alfasayısal olmayan karakterdir ve açılış sınırlayıcısı bir açılış ayracıysa (herhangi biri [({<), kapanış sınırlayıcısı karşılık gelir kapatma braketi (yuvalanmış braketlere izin verilir).

Bunun daha temel bir gönderim olduğunu anlıyorum, ancak birisi gerçekten bir şey yazdırmayı başaramadıkça veya farklı bir açılış ve kapanış sınırlayıcıya sahip iki karakterli serbest biçimli bir dizgi değişmezine sahip bir dil yoksa , bu en iyisidir.

Tcl 96, düzenleme mesafesi 12

if 0    {!"#$%&'()*+,-./123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdeghjklmnopqrstuvwxyz|~}