Напишите программу, которая должна быть максимально короткой (измеряемой по счетчику байтов), не требует ввода, не содержит комментариев и выводит строку / последовательность символов, так что составная программа + вывод имеет длину ровно 95 символов и содержит каждый печатный символ ASCII ровно один раз , то есть программа + вывод представляет собой перестановку из 95 символов с кодами ASCII 32-126:

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

В случае ничьей, победителем становится запись, чья (95-символьная) каскадная программа + выходные данные находится ближе всего к вышеуказанной строке, что измеряется расстоянием редактирования Левенштейна (т. Е. Числом удалений, вставок или односимвольных удалений). замены, необходимые для приведения его в порядок ASCII).

GolfScript, 14 символов

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

Выход :

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

Perl, 89 символов

Это лучшее, что я смог сделать до сих пор:

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

Для тех, кто не знаком с Perl minutae, два аргумента к printзаявлению могут быть представлены как ~(-($=)) . (73 * 2)и tr///.

Программа выводит 6 символов:

591460

К сожалению , каждая итерация конструкт , что я могу думать в Perl ( for, while, until, map, grep) акций , по крайней мере один символ с print. Если бы в выводе было разрешено переводить строки, я мог бы использовать Perl 5.010, чтобы получить решение из 87 символов:

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

PHP 67 байт

<?=U4eB1gkFdA6J9snZD2IE8y5PhwQV^xHGmqYMfNjKpbR3vcLalCWi0_TtrOSXouz;

Выход:

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

Кажется, что должно быть 65-байтовое решение, выдающее 30 символов вместо только 28, но я не мог заставить его выстроиться в линию. OSXouzВместо этого 6 неиспользованных символов были прикреплены к одному из строковых литералов.

Изменить: После дальнейшего размышления, невозможно создать более 28 символов таким образом. UPPER ^ lowerвсегда будет содержать символы от 32 до 63, поэтому все 10 цифр требуются для @[\]_`{|}~. Четыре из оставшихся 22 используются в самом сценарии, оставляя только 18, которые можно получить только с помощью букв. Хотя тай-брейк может быть значительно улучшен.

Рубин, 91 символ

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

Выходы 6273.

%{...} трюк украден у Яна Дворака

Perl, 61 символов

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

Выход:

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

$:по умолчанию " \n-". x8повторяет это восемь раз; 24-символьный результат затем поразрядно закрашивается 23-символьным символом (последний -остается без изменений). Вторая часть представляет собой 12-символьную q-строку поразрядно и 10-символьную линию (последние 2 символа отбрасываются).

Рубин, 95 знаков, 6 правок

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

Ага. Вот и все. Просто свободно плавающий строковый литерал, который никогда не печатается. Ruby поддерживает строковые литералы (заимствованные из Perl, я думаю) в форме процента-типа-разделителя - разделителем является любой не алфавитно-цифровой символ, а если открывающим разделителем является открывающая скобка (любая из [({<), закрывающим разделителем является соответствующий закрывающая скобка (допускаются вложенные скобки).

Я понимаю, что это скорее базовая отправка, но если кому-то не удастся действительно что-то напечатать или если не будет языка со строковым литералом свободной формы из двух символов с другим открывающим и закрывающим разделителями, это лучшее, что есть.

Tcl 96, редактировать расстояние 12

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