Menulis program yang sesingkat mungkin (diukur dengan byte-count), tidak mengambil input, tidak berisi komentar, dan mengeluarkan string karakter / urutan, sehingga program gabungan + output persis 95 karakter panjangnya dan berisi setiap karakter ASCII yang dapat dicetak dicetak tepat sekali , yaitu program + output adalah permutasi dari 95 karakter dengan kode ASCII 32-126:

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

Dalam hal seri, pemenangnya adalah entri yang output + program (95 karakter) + paling dekat dengan string di atas, yang diukur dengan jarak edit Levenshtein (yaitu jumlah penghapusan karakter tunggal, penyisipan, atau diperlukan penggantian untuk memasukkannya ke dalam urutan ASCII).

GolfScript, 14 karakter

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

Keluaran :

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

Perl, 89 karakter

Ini adalah yang terbaik yang bisa saya lakukan sejauh ini:

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

Bagi mereka yang tidak fasih dalam Perl minutae, dua argumen untuk printpernyataan tersebut dapat diterjemahkan sebagai ~(-($=)) . (73 * 2)dan tr///.

Program ini menghasilkan 6 karakter:

591460

Sayangnya setiap iterasi konstruk tunggal yang dapat saya pikirkan di Perl ( for, while, until, map, grep) saham setidaknya satu karakter dengan print. Jika baris baru diizinkan muncul di output, maka saya bisa menggunakan Perl 5.010 untuk mencari solusi 87-karakter:

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

PHP 67 byte

<?=U4eB1gkFdA6J9snZD2IE8y5PhwQV^xHGmqYMfNjKpbR3vcLalCWi0_TtrOSXouz;

Keluaran:

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

Sepertinya harus ada solusi 65 byte, menghasilkan 30 karakter bukan hanya 28, tapi saya tidak bisa mendapatkannya untuk berbaris. 6 karakter yang tidak digunakan OSXouztelah ditempelkan ke salah satu string literal sebagai gantinya.

Sunting: Setelah refleksi lebih lanjut, tidak mungkin menghasilkan lebih dari 28 karakter dengan cara ini. UPPER ^ lowerakan selalu menghasilkan karakter antara 32 dan 63, sehingga semua 10 digit diperlukan untuk @[\]_`{|}~. Empat dari 22 sisanya digunakan dalam skrip itu sendiri, hanya menyisakan 18 yang dapat diperoleh dengan huruf saja. Tiebreaker dapat ditingkatkan secara signifikan.

Ruby, 91 karakter

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

Keluaran 6273.

%{...} Trik dicuri dari Jan Dvorak

Perl, 61 karakter

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

Keluaran:

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

$:default ke " \n-". x8mengulanginya delapan kali; hasil 24 karakter kemudian bitwise-xored dengan pembatasan 23 karakter (yang terakhir -dibiarkan apa adanya). Bagian kedua adalah 12-karakter q-string bitwise-dan 10-karakter barestring (2 karakter terakhir dibuang).

Ruby, 95 karakter, 6 suntingan

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

Ya. Itu dia. Hanya string literal mengambang bebas yang tidak pernah dicetak. Ruby mendukung string literal (dipinjam dari Perl, saya pikir) dalam bentuk persen-jenis-pembatas - pembatas adalah karakter non-alfanumerik, dan jika pembatas pembukaan adalah braket pembuka (salah satu [({<), pembatas penutup adalah yang sesuai braket penutup (braket bersarang diperbolehkan).

Saya menyadari ini lebih dari pengajuan baseline, tetapi kecuali seseorang berhasil mencetak sesuatu atau kecuali ada bahasa dengan string bentuk bebas dua-char literal dengan pembatas pembukaan dan penutupan yang berbeda , ini adalah yang terbaik yang ada.

Tcl 96, edit jarak 12

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