Schreiben Sie ein Programm, das so kurz wie möglich ist (gemessen an der Anzahl der Bytes), keine Eingaben vornimmt, keine Kommentare enthält und eine Zeichenfolge / -folge ausgibt, sodass die verkettete Programm- + Ausgabe genau 95 Zeichen lang ist und jedes druckbare ASCII-Zeichen enthält genau einmal , dh Programm + Ausgabe ist eine Permutation der 95 Zeichen mit den ASCII-Codes 32-126:

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

Im Falle eines Unentschieden ist der Gewinner der Eintrag, dessen (95 Zeichen) verkettetes Programm + Ausgabe der obigen Zeichenfolge am nächsten kommt, gemessen an der Levenshtein-Bearbeitungsentfernung (dh der Anzahl der Einzelzeichen-Löschungen, -Einfügungen oder Ersetzungen erforderlich, um es in ASCII-Reihenfolge zu bringen).

GolfScript, 14 Zeichen

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

Ausgabe :

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

Perl, 89 Zeichen

Dies ist das Beste, was ich bisher konnte:

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

Für diejenigen, die mit Perl nicht vertraut sind, können die beiden Argumente für die printAnweisung als ~(-($=)) . (73 * 2)und dargestellt werden tr///.

Das Programm gibt 6 Zeichen aus:

591460

Leider gibt es in Perl jedes einzelne Iterationskonstruktion dass ich mir vorstellen kann ( for, while, until, map, grep) Aktien mindestens ein Zeichen mit print. Wenn Zeilenumbrüche in der Ausgabe erscheinen dürfen, könnte ich mit Perl 5.010 eine Lösung mit 87 Zeichen finden:

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

PHP 67 Bytes

<?=U4eB1gkFdA6J9snZD2IE8y5PhwQV^xHGmqYMfNjKpbR3vcLalCWi0_TtrOSXouz;

Ausgabe:

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

Es scheint, dass es eine 65-Byte-Lösung geben sollte, die 30 Zeichen anstatt nur 28 ausgibt, aber ich konnte es nicht zum Ausrichten bringen. Die 6 nicht verwendeten Zeichen OSXouzwurden stattdessen auf eines der String-Literale geheftet.

Bearbeiten: Bei weiterer Überlegung ist es nicht möglich, mehr als 28 Zeichen auf diese Weise zu generieren. UPPER ^ lowerergibt immer ein Zeichen zwischen 32 und 63, daher werden für alle 10 Stellen benötigt @[\]_`{|}~. Vier der verbleibenden 22 werden im Skript selbst verwendet, so dass nur 18 übrig bleiben, die nur mit Buchstaben erhalten werden können. Der Tiebreaker könnte jedoch deutlich verbessert werden.

Rubin, 91 Zeichen

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

Ausgänge 6273.

%{...} Trick von Jan Dvorak gestohlen

Perl, 61 Zeichen

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

Ausgabe:

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

$:Standardeinstellung ist " \n-". x8wiederholt es achtmal; Das 24-stellige Ergebnis wird dann bitweise mit einem 23-stelligen Barestring (der letzte -bleibt unverändert) gespeichert . Der zweite Teil besteht aus einer 12-stelligen Q-Zeichenfolge (bitweise) und einer 10-stelligen Barestring (die letzten 2 Zeichen werden verworfen).

Ruby, 95 Zeichen, 6 Änderungen

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

Ja. Das ist es. Nur ein frei schwebendes String-Literal, das niemals gedruckt wird. Ruby unterstützt Zeichenfolgenliterale (von Perl entlehnt, glaube ich) in der Form eines Prozent-Typ-Begrenzers - der Begrenzer ist ein nicht alphanumerisches Zeichen, und wenn der öffnende Begrenzer eine öffnende Klammer ist (eine von[({< ) ist, ist der schließende Begrenzer der entsprechende schließende Klammer (geschachtelte Klammern sind erlaubt).

Mir ist klar, dass dies eher eine Basisübermittlung ist, aber es sei denn, jemand schafft es tatsächlich, etwas zu drucken, oder es gibt eine Sprache mit einem Freiform-String-Literal mit zwei Zeichen und einem anderen Öffnungs- und Schließbegrenzer. Dies ist das Beste, was es gibt.

Tcl 96, Abstand bearbeiten 12

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