В духе Привет, мир! без повторений

Напишите программу, которая печатает строку «Быстрая коричневая лиса перепрыгивает через ленивую собаку» с дополнительным переводом строки. Вся программа не должна повторять символы.

Обратите внимание , что строка для печати делает повторяющиеся символы, так что вам придется обойти это ограничение каким - то образом.

Обратите внимание, что условием победы является конкурс на популярность , т.е. выигрывает ответ с наибольшим количеством голосов .

Обновление: чтобы сделать это немного проще, повторение разрешено, но вы должны попытаться свести его к минимуму. Программы с меньшим (или отсутствующим) повторением имеют приоритет перед программами с некоторым повторением.

Microsoft Word с 97 по 2003 (и некоторые версии Mac Word) - 10 символов

Нет повторений, но не совсем соответствует спецификации - 10 символов:

=rand(2,1)

Выход:

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

Соответствует спецификациям, кроме заглавных и пунктуации, одно повторение - 10 символов:

=rand(1,1)

Выход:

The quick brown fox jumps over the lazy dog.

В более новых версиях Microsoft Word используется =rand.old(1,1)дубликат dи 1.

Может быть способ использовать поле в {=SUM(3,-2)}качестве входных данных для rand (), но в моей установке возникают проблемы с полями, а именно: они не работают ...

«Боб» подтвердил, что {=SUM(3,-2)}(с некоторыми трудностями) можно использовать для замены первого 1, но =повторяется ...

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

При условии, что вы получите Word для обновления в SUMпервую очередь, вывод:

The quick brown fox jumps over the lazy dog.

Скриптинг - 36 символов

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

(ожидает пустой ввод)

Объяснение:

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

Результатом является список ["the quick brown ", "fo", "x", " jumps ove", "r the lazy dog", ""], который автоматически объединяется в одну строку для вывода.

Perl 6 (76 символов, без парных)

Сценарий (будет искажен программным обеспечением платы, но есть En Space до Thin Space и NL, LF и табуляция)

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

• Он использует EVAL (еще раз спасибо за то, что он сделал его заглавными) и заключает в <foo bar>кавычки слова, которые поддерживают все специальные пробелы в качестве разделителей слов.
• say присоединяется к списку строк, используя пробел, прекрасно работает здесь :)
• Затем я использую ~&и 127, чтобы немного перемешать в простой ascii. Дополнительное усложнение: 'Ŭ'.lcстановится 'ŭ'так, что становится sвместо того, что rмне нужно. Добавление 128 несколько дополнительных раз помогает :)

Версия с обратной косой чертой вместо символов Юникода показывает, что все они разные

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)}

Если вы хотите убедиться, что все они уникальны, используйте этот скрипт (у меня Qb"string"были базовые кавычки только с обратной косой чертой)

.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) ~ " $_"  }

Или выполнить его напрямую, используя

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 байт

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

Копировать-Вставить, сохранить как Latin-1 (Ansi).

Это 7-байтовый xor-шифр, использующий строку ¶¥€¼½ˆ•для соли.

Один повторил характер: $.

Хаскель, 71 персонаж

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

Еще одно 7-битное модульное решение.

Повторные символы:

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

Первый раз игра в гольф с Haskell; кто более опытный в языке, не стесняйтесь улучшать. Я хотел сделать анонимную функцию бессмысленной, чтобы не упоминать переменную дважды, но я не знаю, будет ли это чистой выгодой.

JS, 35

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

(да ... двойная кавычка повторяется. и результат плохой. Это еще не серьезный ответ.)

Пакетный скрипт: 7 байт

echo %1

Если сценарий называется hello.bat, введите его в командной строке:

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