可能な限り短く（バイトカウントで測定）、入力を受け取らず、コメントを含まず、連結されたプログラム+出力が正確に95文字の長さで、すべての印刷可能なASCII文字を含むような文字列/シーケンスを出力するプログラムを作成します一度だけ、すなわちプログラム+出力はASCIIコードの32から126と95文字の順列であります：

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

同点の場合、勝者は（95文字の）連結されたプログラム+出力が、レーベンシュタイン編集距離（つまり、1文字の削除、挿入、またはASCII順にするために必要な置換）。

GolfScript、14文字

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

出力：

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

Perl、89文字

これは私がこれまでにできた最高の方法です。

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

Perl minutaeに精通していない人のために、printステートメントへの2つの引数は~(-($=)) . (73 * 2)and としてレンダリングできます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バイトのソリューションがあり、28文字ではなく30文字を出力する必要があるように見えますが、私はそれを揃えることができませんでした。OSXouz代わりに、6つの未使用文字が文字列リテラルの1つに追加されています。

編集：さらに検討すると、この方法で28を超える文字を生成することはできません。UPPER ^ lowerは常に32〜63の文字になり@[\]_`{|}~ます。そのため、10桁すべてが必要です。残りの22個のうち4個はスクリプト自体で使用され、文字のみで取得できる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-"です。x88回繰り返します。その後、24文字の結果は、23文字のベアストリングでビット単位でxoredされます（最後-はそのままです）。2番目の部分は、ビット単位の12文字のqストリングと、10文字のベアストリングです（最後の2文字は破棄されます）。

ルビー、95文字、6編集

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

うん。それでおしまい。印刷されない、ただのフローティング文字列リテラルです。Rubyは、percent-type-delimiter形式の文字列リテラル（Perlから借用されていると思います）をサポートしています-区切り文字は任意の非英数字で、開始区切り文字が開始ブラケット（のいずれか[({<）である場合、終了区切り文字は対応します閉じ括弧（ネストされた括弧が許可されます）。

私はこれがベースライン提出に近いことを理解していますが、誰かが実際に何かを印刷するか、異なる開始および終了デリミタを持つ2文字のフリーフォーム文字列リテラルを持つ言語がない限り、これは最高です。

Tcl 96、編集距離12

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