가능한 짧은 (바이트 수로 측정), 입력이없고, 주석이없고, 문자열 / 시퀀스를 출력하여 연결된 프로그램 + 출력의 길이가 정확히 95 자이며 인쇄 가능한 모든 ASCII 문자를 포함하는 프로그램을 작성하십시오. 정확히 한 번 , 즉 프로그램 + 출력은 ASCII 코드 32-126의 95 문자 순열입니다.

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

동점 인 경우, 승자는 Levenshtein 편집 거리 (즉, 단일 문자 삭제, 삽입 또는 수)에 의해 측정 된대로 (95 자) 연결된 프로그램 + 출력이 위의 문자열에 가장 가까운 항목입니다. ASCII 순서로 바꾸려면 대체해야합니다).

GolfScript, 14 자

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

출력 :

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

펄, 89 자

이것이 내가 지금까지 할 수 있었던 최선입니다.

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

펄 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#%$

28 바이트 대신 30 문자를 출력하는 65 바이트 솔루션이 있어야하는 것처럼 보이지만 줄을 찾지 못했습니다. 6 개의 미사용 문자 OSXouz가 대신 문자열 리터럴 중 하나에 고정되었습니다.

편집 : 추가로 반영하면이 방식으로 28자를 초과하여 생성 할 수 없습니다. UPPER ^ lower는 항상 32에서 63 사이의 문자가되므로 10 자리 모두에 필요합니다 @[\]_`{|}~. 나머지 22 개 중 4 개는 스크립트 자체에서 사용되며 18 개만 글자만으로 얻을 수 있습니다. 그러나 순위 결정을 크게 개선 할 수 있습니다.

루비, 91 자

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

출력 6273.

%{...} Jan Dvorak에서 도난당한 트릭

펄, 61 자

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

산출:

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

$:기본값은 " \n-"입니다. x8그것을 8 번 반복한다; 24 자 결과는 23 자 베어 스트링으로 비트 단위로 바뀝니다 (마지막 -은 그대로 남습니다). 두 번째 부분은 12- 문자 q- 문자열 및 10- 문자 베어 스트링입니다 (마지막 2 문자는 버림).

루비, 95 자, 편집 6 개

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

네. 그게 다야. 인쇄되지 않는 자유 부동 문자열 리터럴입니다. 루비는 퍼센트 유형 구분 기호 형식으로 문자열 리터럴 (Perl에서 빌려 왔습니다)을 지원합니다. 구분자는 영숫자가 아닌 문자이며 여는 구분 문자가 여는 괄호 (임의의 경우 [({<)이면 닫는 구분 기호가 해당됩니다 닫는 괄호 (중괄호는 허용됨).

나는 이것이 기본 제출에 가깝다는 것을 알고 있지만 누군가가 실제로 무언가를 인쇄하지 않거나 다른 시작 및 닫는 구분 기호 가있는 2 문자 자유형 문자열 리터럴이있는 언어가 없다면 이것이 가장 좋습니다.

TCL 96, 편집 거리 12

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