Viết chương trình càng ngắn càng tốt (được đo bằng số byte), không có đầu vào, không chứa nhận xét và xuất chuỗi / ký tự, sao cho chương trình + đầu ra được nối dài chính xác 95 ký tự và chứa mọi ký tự ASCII có thể in được chính xác một lần , tức là chương trình + đầu ra là hoán vị của 95 ký tự với mã ASCII 32-126:

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

Trong trường hợp hòa, người chiến thắng là mục có chương trình kết hợp (95 ký tự) + đầu ra gần nhất với chuỗi trên, được đo bằng khoảng cách chỉnh sửa Levenshtein (nghĩa là số lần xóa ký tự đơn, chèn vào hoặc thay thế cần thiết để đưa nó vào thứ tự ASCII).

GolfScript, 14 ký tự

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

Đầu ra :

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

Perl, 89 ký tự

Đây là điều tốt nhất tôi có thể làm cho đến nay:

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

Đối với những người không trò chuyện trong Perl minutae, hai đối số cho printcâu lệnh có thể được hiển thị là ~(-($=)) . (73 * 2)và tr///.

Chương trình xuất ra 6 ký tự:

591460

Đáng tiếc là mỗi lần lặp cấu trúc duy nhất mà tôi có thể nghĩ đến trong Perl ( for, while, until, map, grep) cổ phiếu ít nhất một nhân vật với print. Nếu dòng mới được phép xuất hiện trong đầu ra, thì tôi có thể sử dụng Perl 5.010 để đưa ra giải pháp 87 ký tự:

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

PHP 67 byte

<?=U4eB1gkFdA6J9snZD2IE8y5PhwQV^xHGmqYMfNjKpbR3vcLalCWi0_TtrOSXouz;

Đầu ra:

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

Có vẻ như cần có một giải pháp 65 byte, xuất ra 30 ký tự thay vì chỉ 28, nhưng tôi không thể đưa nó vào hàng. Thay vào đó, 6 ký tự không được sử dụng OSXouzđã được xử lý theo một trong các chuỗi ký tự.

Chỉnh sửa: Sau khi phản ánh thêm, không thể tạo nhiều hơn 28 ký tự theo cách này. UPPER ^ lowersẽ luôn dẫn đến một ký tự trong khoảng từ 32 đến 63, vì vậy tất cả 10 chữ số được yêu cầu @[\]_`{|}~. Bốn trong số 22 cái còn lại được sử dụng trong chính kịch bản, chỉ còn lại 18 cái có thể thu được bằng các chữ cái. Các tiebreaker có thể được cải thiện đáng kể, mặc dù.

Ruby, 91 ký tự

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

Đầu ra 6273.

%{...} lừa bị đánh cắp từ Jan Dvorak

Perl, 61 ký tự

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

Đầu ra:

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

$:mặc định " \n-". x8lặp đi lặp lại tám lần; kết quả gồm 24 ký tự sau đó được phân chia theo bitwise với barestring 23 ký tự (cuối cùng -được giữ nguyên trạng). Phần thứ hai là chuỗi q 12 ký tự bitwise - và barestring 10 ký tự (2 ký tự cuối cùng bị loại bỏ).

Ruby, 95 ký tự, 6 chỉnh sửa

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

Vâng. Đó là nó. Chỉ là một chuỗi ký tự trôi nổi tự do không bao giờ được in. Ruby hỗ trợ chuỗi ký tự (mượn từ Perl, tôi nghĩ) ở dạng phân cách phần trăm - dấu phân cách là bất kỳ ký tự không chữ và số nào, và nếu dấu phân cách mở là một dấu ngoặc mở (bất kỳ [({<), thì dấu phân cách đóng là tương ứng khung đóng (dấu ngoặc được cho phép).

Tôi nhận ra đây là một bản đệ trình cơ bản, nhưng trừ khi ai đó thực sự in một cái gì đó hoặc trừ khi có một ngôn ngữ với chuỗi ký tự tự do hai ký tự với một dấu phân cách đóng và mở khác nhau , đây là cách tốt nhất.

Tcl 96, chỉnh sửa khoảng cách 12

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