Escriba un programa que sea lo más corto posible (medido por el recuento de bytes), no toma entrada, no contiene comentarios y genera una secuencia / secuencia de caracteres, de modo que el programa concatenado + salida tiene exactamente 95 caracteres y contiene todos los caracteres ASCII imprimibles exactamente una vez , es decir, programa + salida es una permutación de los 95 caracteres con códigos ASCII 32-126:

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

En caso de empate, el ganador es la entrada cuyo programa + salida concatenado (95 caracteres) está más cerca de la cadena anterior, según lo medido por la distancia de edición de Levenshtein (es decir, el número de eliminaciones de un solo carácter, inserciones o sustituciones requeridas para ponerlo en orden ASCII).

GolfScript, 14 caracteres

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

Salida :

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

Perl, 89 caracteres

Esto es lo mejor que he podido hacer hasta ahora:

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

Para aquellos que no están familiarizados con Perl minutae, los dos argumentos de la printdeclaración se pueden representar como ~(-($=)) . (73 * 2)y tr///.

El programa genera 6 caracteres:

591460

Por desgracia cada iteración constructo que se me ocurre en Perl ( for, while, until, map, grep) comparte al menos un personaje con print. Si se permitiera que aparecieran nuevas líneas en la salida, entonces podría usar Perl 5.010 para obtener una solución de 87 caracteres:

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

PHP 67 bytes

<?=U4eB1gkFdA6J9snZD2IE8y5PhwQV^xHGmqYMfNjKpbR3vcLalCWi0_TtrOSXouz;

Salida:

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

Parece que debería haber una solución de 65 bytes, generando 30 caracteres en lugar de solo 28, pero no pude hacer que se alineara. Los 6 caracteres no utilizados OSXouzse han agregado a uno de los literales de cadena.

Editar: luego de una mayor reflexión, no es posible generar más de 28 caracteres de esta manera. UPPER ^ lowersiempre dará como resultado un carácter entre 32 y 63, por lo que se requieren los 10 dígitos @[\]_`{|}~. Cuatro de los 22 restantes se usan en el guión mismo, dejando solo 18 que se pueden obtener solo con letras. Sin embargo, el desempate podría mejorarse significativamente.

Ruby, 91 caracteres

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

Salidas 6273.

%{...} truco robado de Jan Dvorak

Perl, 61 caracteres

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

Salida:

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

$:por defecto " \n-". x8lo repite ocho veces; El resultado de 24 caracteres se grabó en bits con una barra libre de 23 caracteres (el último -se deja como está). La segunda parte es una cadena q de 12 caracteres a nivel de bits y una barra libre de 10 caracteres (los últimos 2 caracteres se descartan).

Ruby, 95 caracteres, 6 ediciones

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

Sí. Eso es. Solo un literal de cadena flotante que nunca se imprime. Ruby admite literales de cadena (prestados de Perl, creo) en la forma delimitador de tipo porcentual: el delimitador es cualquier carácter no alfanumérico, y si el delimitador de apertura es un paréntesis de apertura (cualquiera de [({<), el delimitador de cierre es el correspondiente corchete de cierre (se permiten corchetes anidados).

Me doy cuenta de que esto es más una presentación de línea de base, pero a menos que alguien logre imprimir algo o que haya un lenguaje con un literal de cadena de forma libre de dos caracteres con un delimitador de apertura y cierre diferente , este es el mejor que hay.

Tcl 96, editar distancia 12

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