Escreva um programa o mais curto possível (medido pela contagem de bytes), não receba entrada, não contenha comentários e produz uma sequência / sequência de caracteres, de forma que o programa + saída concatenado tenha exatamente 95 caracteres e contenha todos os caracteres ASCII imprimíveis exatamente uma vez , ou seja, programa + saída é uma permutação dos 95 caracteres com códigos ASCII 32-126:

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

Em caso de empate, o vencedor é a entrada cujo programa + saída concatenado (95 caracteres) é o mais próximo da sequência acima, conforme medido pela distância de edição de Levenshtein (ou seja, o número de exclusões, inserções ou exclusões de caracteres únicos) substituições necessárias para colocá-lo em ordem ASCII).

GolfScript, 14 caracteres

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

Saída :

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

Perl, 89 caracteres

Este é o melhor que pude fazer até agora:

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

Para aqueles que não conhecem o Perl minutae, os dois argumentos para a printdeclaração podem ser apresentados como ~(-($=)) . (73 * 2)e tr///.

O programa gera 6 caracteres:

591460

Infelizmente cada construção iteração única que eu posso pensar em Perl ( for, while, until, map, grep) de ações pelo menos um personagem com print. Se novas linhas tiverem permissão para aparecer na saída, eu poderia usar o Perl 5.010 para obter uma solução de 87 caracteres:

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

PHP 67 bytes

<?=U4eB1gkFdA6J9snZD2IE8y5PhwQV^xHGmqYMfNjKpbR3vcLalCWi0_TtrOSXouz;

Resultado:

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

Parece que deveria haver uma solução de 65 bytes, produzindo 30 caracteres em vez de apenas 28, mas não consegui alinhar. Os 6 caracteres não utilizados OSXouzforam pregados em uma das literais de sequência.

Editar: Após uma reflexão mais aprofundada, não é possível gerar mais de 28 caracteres dessa maneira. UPPER ^ lowersempre resultará em um caractere entre 32 e 63, portanto, todos os 10 dígitos são necessários @[\]_`{|}~. Quatro dos 22 restantes são usados ​​no próprio script, deixando apenas 18 que podem ser obtidos apenas com letras. O desempate pode ser melhorado significativamente, no entanto.

Ruby, 91 caracteres

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

Saídas 6273.

%{...} truque roubado de Jan Dvorak

Perl, 61 caracteres

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

Resultado:

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

$:o padrão é " \n-". x8repete oito vezes; o resultado de 24 caracteres é então armazenado bit a bit com uma restrição de 23 caracteres (o último -é deixado como está). A segunda parte é uma string q de 12 caracteres bit a bit e uma restrição de 10 caracteres (os últimos 2 caracteres são descartados).

Ruby, 95 caracteres, 6 edições

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

Sim. É isso aí. Apenas um literal de cadeia flutuante livre que nunca é impresso. Ruby suporta literais de seqüência de caracteres (emprestados de Perl, eu acho) na forma de delimitador de porcentagem - o delimitador é qualquer caractere não alfanumérico e, se o delimitador de abertura for um colchete de abertura (qualquer um [({<), o delimitador de fechamento será o correspondente colchete de fechamento (colchetes aninhados são permitidos).

Sei que isso é mais um envio de linha de base, mas, a menos que alguém consiga realmente imprimir algo ou a menos que exista um idioma com uma string de forma livre de dois caracteres literal com um delimitador de abertura e fechamento diferente , é o melhor que existe.

Tcl 96, distância de edição 12

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