Napisz program, który jest tak krótki, jak to możliwe (mierzone liczbą bajtów), nie przyjmuje danych wejściowych, nie zawiera komentarzy i wyświetla ciąg znaków / sekwencję, tak że łączony program + wynik ma dokładnie 95 znaków długości i zawiera każdy znak ASCII do wydrukowania dokładnie raz , tzn. wyjście + program to permutacja 95 znaków z kodami ASCII 32-126:

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

W przypadku remisu zwycięzcą jest pozycja, której (95-znakowy) program połączony + wynik jest najbliższy powyższemu ciągowi, mierząc odległość edycyjną Levenshteina (tj. Liczbę usunięć, wstawień lub podstawienia wymagane do uporządkowania go w kolejności ASCII).

GolfScript, 14 znaków

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

Wyjście :

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

Perl, 89 znaków

To najlepsze, co udało mi się do tej pory zrobić:

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

Dla tych, którzy nie znają Perla minutae, dwa argumenty printinstrukcji mogą być renderowane jako ~(-($=)) . (73 * 2)i tr///.

Program wyświetla 6 znaków:

591460

Niestety każda pojedyncza iteracja konstrukt, że mogę myśleć w Perlu ( for, while, until, map, grep) akcji co najmniej jeden znak z print. Jeśli pozwolono na pojawienie się znaków nowej linii, mógłbym użyć Perla 5.010, aby uzyskać 87-znakowe rozwiązanie:

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

PHP 67 bajtów

<?=U4eB1gkFdA6J9snZD2IE8y5PhwQV^xHGmqYMfNjKpbR3vcLalCWi0_TtrOSXouz;

Wynik:

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

Wygląda na to, że powinno istnieć rozwiązanie 65-bajtowe, generujące 30 znaków zamiast tylko 28, ale nie udało mi się wyrównać. OSXouzZamiast tego 6 nieużywanych znaków zostało przyczepionych do jednego z literałów łańcucha.

Edycja: Po dalszej refleksji nie jest możliwe wygenerowanie więcej niż 28 znaków w ten sposób. UPPER ^ lowerbędzie zawsze skutkować znakiem między 32 a 63, więc wszystkie 10 cyfr jest wymagane @[\]_`{|}~. Cztery pozostałe 22 są używane w samym skrypcie, pozostawiając tylko 18, które można uzyskać za pomocą samych liter. Jednak remis można znacznie poprawić.

Ruby, 91 znaków

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

Wyjścia 6273.

%{...} sztuczka skradziona Janowi Dvorakowi

Perl, 61 znaków

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

Wynik:

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

$:domyślnie to " \n-". x8powtarza to osiem razy; wynik 24 znaków jest następnie bitowo xoredowany 23-znakowym gołym łańcuchem (ostatni -pozostaje niezmieniony ). Druga część to 12-znakowy ciąg q bitowo i 10-znakowy łańcuch (ostatnie 2 znaki są odrzucane).

Ruby, 95 znaków, 6 edycji

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

Tak. Otóż ​​to. Po prostu swobodny ciąg literału, który nigdy nie jest drukowany. Ruby obsługuje literały łańcuchowe (jak sądzę, zapożyczone z Perla) w postaci separatora typu procentowego - separator jest dowolnym znakiem niealfanumerycznym, a jeśli separator otwierający jest nawiasiem otwierającym (dowolnym z [({<), separator zamykający odpowiada klamra zamykająca (dozwolone są klamry zagnieżdżone).

Zdaję sobie sprawę, że jest to bardziej podstawowe przesłanie, ale chyba że komuś uda się coś wydrukować lub jeśli nie będzie języka z dwuznakowym dosłownym ciągiem literalnym z innym otwierającym i zamykającym ogranicznikiem, jest to najlepszy z dostępnych.

Tcl 96, edycja odległości 12

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