Напишіть програму, яка є якомога коротшою (вимірюється підрахунком байтів), не вводить даних, не містить коментарів і виводить символьну рядок / послідовність, таким чином, щоб зв'язана програма + вихід була рівною 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|~}