No espírito do Olá mundo! sem repetição

Escreva um programa que imprima a sequência "a raposa marrom rápida salta sobre o cachorro preguiçoso" com nova linha opcional. O programa inteiro não deve repetir nenhum caractere.

Note que a string a ser impresso faz caracteres de repetição, assim você terá de contornar essa limitação de alguma forma.

Observe que a condição vencedora é concurso de popularidade , ou seja, a resposta mais votada vence.

Atualização: para facilitar um pouco, a repetição é permitida, mas você deve tentar minimizá-la. Os programas com menos (ou nenhuma) repetição têm prioridade sobre os programas com alguma repetição.

Microsoft Word de 97 a 2003 (e algumas versões do Mac Word) - 10 caracteres

Sem repetições, mas não corresponde às especificações - 10 caracteres:

=rand(2,1)

Resultado:

The quick brown fox jumps over the lazy dog.
The quick brown fox jumps over the lazy dog.

Corresponde às especificações, exceto letras maiúsculas e pontuação, uma repetição - 10 caracteres:

=rand(1,1)

Resultado:

The quick brown fox jumps over the lazy dog.

As versões mais recentes do Microsoft Word usam =rand.old(1,1)duplicatas de1 .

Pode haver uma maneira de usar um campo {=SUM(3,-2)} como entrada para rand (), mas minha instalação está tendo problemas com campos - ou seja, eles não estão funcionando ...

"Bob" confirmou que {=SUM(3,-2)}(com alguma dificuldade) pode ser usado para substituir o primeiro 1, mas =é repetido ...

=rand({=SUM(3,-2)},1)

Desde que você obtenha o Word para atualizar SUMprimeiro, a saída é:

The quick brown fox jumps over the lazy dog.

Sclipting - 36 caracteres

덆둥긇굵늖꽫긆깲닷덮긂롦닲롸껂걪덖륰댲걯덦넬댢건늆넠닆굺뎒걤닶댬首坼

(espera entrada vazia)

Explicação:

Push the string "the quick brown ,fo,x, jumps ove,r the lazy dog,"
덆둥긇굵늖꽫긆깲닷덮긂롦닲롸껂걪덖륰댲걯덦넬댢건늆넠닆굺뎒걤닶댬
Retrieve last character from the string (",")
首
Regular expression string-split
坼

O resultado é a lista ["the quick brown ", "fo", "x", " jumps ove", "r the lazy dog", ""], que é concatenada automaticamente em uma única sequência de caracteres para saída.

Perl 6 (76 caracteres, sem dobra)

O script (será mutilado pelo software da placa, mas há En Space até Thin Space e NL e LF e tab)

say　EVAL    lc q{<the Quiţk Brown fïX jUmpS ůvťɲ Tɨå ìšzY dOg>~&(127.CHR
x
43)}

• Ele usa EVAL (obrigado novamente por torná-lo em maiúsculas) e <foo bar> cita palavras que suportam todos os caracteres especiais de espaço como separadores de palavras.
• say se junta à lista de strings usando espaço, funciona bem aqui :)
• Em seguida, uso ~&127 e shuffle para ascii simples. Complicação extra: 'Ŭ'.lctorna - se 'ŭ'assim que se torna um em svez do que reu precisava. Adicionar 128 algumas horas extras ajuda :)

Uma versão com barra invertida escapa em vez de caracteres unicode para mostrar que são todos diferentes

say\x[3000]EVAL\x[9]lc q{<the\x[2003]Qui\x[163]k\x[2004]Brown\x[2005]f\x[EF]X\x[2006]jUmpS\x[2007]\x[16F]v\x[165]\x[272]\x[2008]T\x[268]\x[E5]\x[2009]\x[EC]\x[161]zY\x[200A]dOg>~&(127.CHR\x[0A]x\x[0D]43)}

Se você deseja verificar se todos são exclusivos, use este script (eu costumava Qb"string"ter citações básicas com apenas escapes de barra invertida)

.say for 
Qb"say\x[3000]EVAL\x[9]lc q{<the\x[2003]Qui\x[163]k\x[2004]Brown\x[2005]f\x[EF]X\x[2006]jUmpS\x[2007]\x[16F]v\x[165]\x[272]\x[2008]T\x[268]\x[E5]\x[2009]\x[EC]\x[161]zY\x[200A]dOg>~&(127.CHR\x[0A]x\x[0D]43)}"
.comb.Bag.grep(*.value > 1).map: {.key.ord.base(16) ~ " $_"  }

Ou execute-o diretamente usando

EVAL Qb"say\x[3000]EVAL\x[9]lc q{<the\x[2003]Qui\x[163]k\x[2004]Brown\x[2005]f\x[EF]X\x[2006]jUmpS\x[2007]\x[16F]v\x[165]\x[272]\x[2008]T\x[268]\x[E5]\x[2009]\x[EC]\x[161]zY\x[200A]dOg>~&(127.CHR\x[0A]x\x[0D]43)}"

PHP - 67 bytes

<?echo$g^¶¥€¼½ˆ•.${~˜}=ÂÍåœÌýü¡¦Åþ¾’‹Ï†£‘ƲáºëÓâæݗߙ󖎸·³ø‰ï®ÜØÔ;

Copie e cole, salve como Latin-1 (Ansi).

Esta é uma xor-cifra de 7 bytes, usando a string ¶¥€¼½ˆ•para salt.

Um caractere repetido: $.

Haskell, 71 caracteres

map(\c->chr$mod(ord c)128)"tŨeఠquiţkĠbŲɯwnȠfѯxРjѵŭŰsܠůvťѲठѴѨѥਠlšzyଠɤկg"

Mais uma solução de módulo de 7 bits.

Caracteres repetidos:

c 3
d 2
m 2
o 2
r 2
( 2
) 2
" 2

Primeira vez jogando golfe com Haskell; qualquer pessoa mais experiente no idioma, fique à vontade para melhorar. Eu queria tornar a função anônima livre de pontos para evitar ter que mencionar uma variável duas vezes, mas não sei se seria um benefício líquido.

JS, 35

btoa("¶ªº'$nº0ú1驲ޮØ^¬òv")

(sim ... as aspas duplas são repetidas. e a saída é ruim. Ainda não é uma resposta séria.)

Script de lote: 7 bytes

echo %1

Se o script for chamado hello.bat, digite-o na linha de comando:

hello.bat "The quick brown fox jumps over the lazy dog"