编写一个尽可能短的程序（以字节计数为单位），不输入任何内容，不包含任何注释，并输出一个字符串/序列，这样，串联的程序+输出正好是95个字符长，并且包含每个可打印的ASCII字符仅一次，即program + output是95个字符的置换，ASCII码为32-126：

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

如果出现平局，则获胜者是其项（95个字符）并置的程序+输出最接近上述字符串的条目，根据Levenshtein编辑距离（即，单个字符的删除，插入或删除的个数）必须将其替换为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个字符，但是我无法使其排成一行。6个未使用的字符OSXouz已改为附加在字符串文字之一上。

编辑：进一步思考后，以这种方式生成的字符数不能超过28。UPPER ^ lower将始终导致一个介于32到63之间的字符，因此要求所有10位数字@[\]_`{|}~。其余22个中的4个用于脚本本身，仅剩下18个可以单独使用字母获得。决胜局可以大大改善。

Ruby，91个字符

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

输出6273。

%{...} 扬·德沃夏克（Jan Dvorak）被盗的诡计

Perl，61个字符

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

输出：

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

$:默认为" \n-"。x8重复八次；然后，将24个字符的结果与23个字符的裸字符串按位异或（最后一个-保持原样）。第二部分是按位排列的12个字符的q字符串和10个字符的裸字符串（最后两个字符被丢弃）。

Ruby，95个字符，进行6次编辑

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

是的 而已。只是从未打印过的自由浮动字符串文字。Ruby支持以百分比类型定界符形式的字符串文字（我认为是从Perl借来的）-定界符是任何非字母数字字符，并且如果开头定界符是开头括号（其中的任何一个[({<），则结束定界符就是相应的右括号（允许使用嵌套括号）。

我意识到这更多的是基线提交，但是除非有人设法实际打印出东西，或者除非有一种语言带有两个字符的自由格式字符串文字且带有不同的打开和关闭定界符，否则这是最好的选择。

Tcl 96，编辑距离12

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