Мой отец, который был действительно хорошим APLer и научил меня всем основам APL (и многому другому ), скончался в этот день, пять лет назад. При подготовке к 50-летию APL я нашел это патентное письмо (переведенное для удобства тех, кто не читает по-датски) для рукописного логотипа. Это объясняет основную причину того, что APL никогда не набирает большую пользовательскую базу - причина, которая, конечно, относится и ко всем удивительным языкам игры этого сообщества:

A 3497/77 Треб. 29 - ^го августа 1977 года на 13

Анри Брудзевски, инженерно-консалтинговая компания, Mindevej 28, Søborg,

класс 9 , включая компьютеры, особенно компьютеры с кодировкой APL,
класс 42: компания, предоставляющая услуги в сфере ИТ, особенно при использовании компьютеров с кодировкой APL.

задача

Произведите бесконечно повторяющийся вывод текста EASIER COMMUNICATION MEANS FASTER CODING MEANS FEWER CODERS MEANS без перевода строки. Вы можете начать текст с EASIERили FASTERили FEWER.

05AB1E , 25 байтов

[‘æƒËRSˆ¾¥ƒŽÁˆ¾¡ŸÂ ‘?

Попробуйте онлайн!

Объяснение:

[‘æƒËRSˆ¾¥ƒŽÁˆ¾¡ŸÂ ‘?
[                         Start infinite loop
 ‘æƒËRSˆ¾¥ƒŽÁˆ¾¡ŸÂ ‘   Push the compressed string in uppercase, starting from FEWER, with a trailing space
                        ?  Print without trailing newline

SVG (HTML5), 336 байт

<svg width=500 height=500><defs><path id=p d=M49,250a201,201,0,0,1,402,0a201,201,0,0,1,-402,0></defs><text font-size="32"><textPath xlink:href=#p>EASIER COMMUNICATION MEANS FASTER CODING MEANS FEWER CODERS MEANS</textPath><animateTransform attributeName=transform type=rotate from=360,250,250 to=0,250,250 dur=9s repeatCount=indefinite>

Изменить: Некоторые люди обнаружили, что шрифт не совсем подходит для них, поэтому вот версия, которая позволяет вам несколько пикселей регулировки:

<p><input type=number value=0 min=0 max=9 oninput=p.setAttribute('d','M250,250m20_,0a20_,20_,0,1,1,-20_,-20_a20_,20_,0,1,1,-20_,20_a20_,20_,0,1,1,20_,20_a20_,20_,0,1,1,20_,-20_'.replace(/_/g,this.value))></p>
<svg width=500 height=500><defs><path id=p d=M250,250m200,0a200,200,0,1,1,-200,-200a200,200,0,1,1,-200,200a200,200,0,1,1,200,200a200,200,0,1,1,200,-200></defs><text font-size="32"><textPath xlink:href=#p>EASIER COMMUNICATION MEANS FASTER CODING MEANS FEWER CODERS MEANS</textPath><animateTransform attributeName=transform type=rotate from=360,250,250 to=0,250,250 dur=9s repeatCount=indefinite>

PHP, 76 байт

for(;;)echo strtr(EASI0MMUNICATION1FAST0DING1FEW0DERS1,["ER CO"," MEANS "]);

Попробуйте онлайн!

Vim 69 байт

qqAFEWER CODERS MEANS EASIER COMMUNICATION M<C-n> FASTER CODING M<C-n> <esc>@qq@q

HTML, 122 байта.

Извините, не могу с собой поделать.

<marquee style="width:5em;word-spacing:5em;">EASIER COMMUNICATION MEANS FASTER CODING MEANS FEWER CODERS MEANS </marquee>

Python 2 , 82 81 байт

-1 байт благодаря Leaky Nun.

Я, наверное, что-то делаю не так, но уже очень поздно Обратите внимание на запятую.

while 1:print'FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS',

Попробуйте онлайн!

Другое решение, 85 байт

Я, вероятно, могу сыграть в гольф дальше.

while 1:print'%sER CO%s MEANS'*3%('FEW','DERS',' EASI','MMUNICATION',' FAST','DING'),

Попробуйте онлайн!

Желе , 33 29 байт

4 байта благодаря Эрику Аутгольферу.

“©%5ÐƬwȮh¬Þ6.⁷ḷḊḥṫɠlḶṀġß»Œu⁶¢

Попробуйте онлайн!

Брахилог , 70 байт

"FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS "w↰

Попробуйте онлайн!

Как это работает

"..."w↰
"..."     generate the string "..."
     w    print to STDOUT without trailing newline
      ↰   do the whole thing all over again

HTML / CSS (только Firefox), 179 177 183 176 173 байта

<b id=a>EASIER COMMUNICATION MEANS FASTER CODING MEANS FEWER CODERS MEANS </b>E<a><style>*{margin:0;}a{position:fixed;left:0;right:0;height:1em;background:-moz-element(#a)}

Конечно, далеко не самые низкие оценки, я просто подумал, что было бы интересно получить бесконечное повторение в HTML / CSS без участия JS :)

Changelog:

• Удалены кавычки вокруг атрибута id
• добавлен «круглый» фон-повтор, чтобы растянуть текст, чтобы он правильно переносился
• изменен на однострочный вывод
• заменить width:100%стиль, right:0чтобы сохранить 3 байта

Python 3 , 87 байт

while 1:print(end="FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS ")

Попробуйте онлайн!

C (gcc) , 92 байта

main(){for(;printf("FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS "););}

Попробуйте онлайн!

LOLCODE , 116 байтов

HAI 1
IM IN YR O
VISIBLE "FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS "!
IM OUTTA YR O
KTHXBYE

Попробуйте онлайн!

Рубин, 77 байт

присвоение " MEANS "переменной сохраняло всего 1 байт :-)

loop{$><<"EASIER COMMUNICATION#{m=" MEANS "}FASTER CODING#{m}FEWER CODERS"+m}

JavaScript (ES6), 90 87 байт

while(1)console.log`EASIER COMMUNICATION MEANS FASTER CODING MEANS FEWER CODERS MEANS `

Функциональная альтернатива, 100 байт

«Функционирование» здесь означает «не сломает ваш браузер» (по крайней мере, на некоторое время)!

setInterval(_=>console.log`EASIER COMMUNICATION MEANS FASTER CODING MEANS FEWER CODERS MEANS `,1)

Befunge , 73 байта

" SNAEM GNIDOC RETSAF SNAEM NOITACINUMMOC REISAE SNAEM SREDOC REWEF">:#,_

Попробуйте онлайн!

Октава, 86 байт

while fprintf('FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS ')end

Объяснение:

Это довольно очевидно. Единственная настоящая «хитрость» здесь заключается в использовании while fprintf. Когда fprintfзадан аргумент возврата, он вернет количество напечатанных символов, и все ненулевые числа будут учтены trueв октаве, поэтому условие цикла всегда будет истинным.

Я отчаянно пытался сделать более интересный подход более коротким, но, к сожалению, он оказался на 9 байт длиннее:

while fprintf('FEW%sDERS%sEASI%sMMUNICATION%sFAST%sDING%s',{'ER CO',' MEANS '}{'ababab'-96})end

Это пытается вставить строки 'ER CO'и ' MEANS'в строку в правильных местах, используя прямое индексирование, где 'ababab'-96более короткая версия [1 2 1 2 1 2].

Это было немного короче (93 байта), но все же дольше, чем наивный подход

while fprintf('FEWER CODERS%sEASIER COMMUNICATION%sFASTER CODING%s',{' MEANS '}{[1,1,1]})end

И еще один (89 байт), используя подход Level River St:

while fprintf(['FEWER CODERS',s=' MEANS ','EASIER COMMUNIDATION',s,'FASTER CODING',s])end

Это должно работать теоретически, на один байт меньше, чем исходное решение, но по какой-то странной причине это не получается:

while fprintf"FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS "
end

Это использует ошибочную функцию, которая fprintf('abc def')эквивалентна fprintf"abc def". endДолжно быть на следующей строке, но это еще один байт короче поскольку две скобки пропускаются.

И еще один за 87:

while fprintf('FEWER CODERS%sEASIER COMMUNICATION%sFASTER CODING%s',k=' MEANS ',k,k)end

Ну, не говори, что я не пробовал :)

Алиса , 70 байт

" SNAEM "k"SREDOC REWEF"e0j"GNIDOC RETSAF"e0j"NOITACINUMMOC REISAE"d&o

Попробуйте онлайн!

объяснение

К сожалению, повторное использование MEANS(с пробелами) экономит только один байт по сравнению с простой печатью всего за один раз. Следовательно, извлечение ER COфактически будет стоить байт (или, возможно, дороже, потому что извлечение другого раздела будет немного дороже).

" SNAEM "                Push the code points of " MEANS " in reverse.
k                        If there is a return address on the return address stack (which
                         there isn't right now), pop it and jump there.
"SREDOC REWEF"           Push the code points of "FEWER CODERS" in reverse.
e0j                      Jump to the beginning of the line, pushing the location of the
                         j to the return address stack. Hence, we push the code points
                         of " MEANS " again, but then the k pops the return address and
                         jumps back here.
"GNIDOC RETSAF"          Push the code points of "FASTER CODING" in reverse.
e0j                      Jump to the beginning of the line again.
"NOITACINUMMOC REISAE"   Push the code points of "EASIER COMMUNICATION" in reverse.
d                        Push the stack depth.
&o                       Print that many bytes from the top of the stack.
                         Afterwards the IP wraps around to the first column and the
                         program starts over.

C #, 102 байта

_=>{for(;;)System.Console.Write("EASIER COMMUNICATION{0}FASTER CODING{0}FEWER CODERS{0}"," MEANS ");};

Pyth , 69 байт

Wp"FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS 

Попробуйте онлайн!

Как это работает

Wp"...
W       while the following is true: (do nothing)
 p      print the following and return the following
  "...

Lua , 92 байта

while 1 do io.write("FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS ")end

Попробуйте онлайн!

Java (OpenJDK 9) , 114 байт

static void f(){while(1>0)System.out.print("FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS ");}

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

C 86 байтов

f(){printf("FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS ");f();}

Посмотрите, как это работает онлайн .

bc , 76 байт

while(1)"EASIER COMMUNICATION MEANS FASTER CODING MEANS FEWER CODERS MEANS "

Perl 6 ,  81 80  79 байтов

print ('EASIER COMMUNICATION','FASTER CODING','FEWER CODERS'X'MEANS'),' 'for ^Inf

Попытайся

loop {print ('EASIER COMMUNICATION','FASTER CODING','FEWER CODERS'X'MEANS'),' '}

Попытайся

loop {print [~] 'EASIER COMMUNICATION','FASTER CODING','FEWER CODERS'X'MEANS '}

Попытайся

MATL , 68 байт

`'EASIER COMMUNICATION*FASTER CODING*FEWER CODERS*'42' MEANS 'Zt&YDT

Попробуйте онлайн!

объяснение

`                                                     % Do...while
  'EASIER COMMUNICATION*FASTER CODING*FEWER CODERS*'  %   Push this string
  42                                                  %   Push 42 (ASCII for '*')
  ' MEANS '                                           %   Push this string  
  Zt                                                  %   String replacement
  &YD                                                 %   printf to STDOUT
  T                                                   %   Push true as loop condition
                                                      % End (implicit)

Аксиома, 92 89 байт

repeat fortranLiteral"EASIER COMMUNICATION MEANS FASTER CODING MEANS FEWER CODERS MEANS "

вставить в одну строку в окно Аксиома. Возможно, есть одна функция короче "fortranLiteral", которая не записывает "\ n"

Braingolf , 78 байт

"FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS "[!@66<1+>]

или

Braingolf , 77 байт [не конкурирует]

"FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS "[!&@<1+>]

Этот неконкурентоспособен, так как мне пришлось исправить 2 ошибки, касающиеся использования жадного модификатора ( &) с оператором char print ( @)

Пустой , 267 байт

[70][69][87][69][82][32][67][79][68][69][82][83][32][77][69][65][78][83][32][69][65][83][73][69][82][32][67][79][77][77][85][78][73][67][65][84][73][79][78][32][77][69][65][78][83][32][70][65][83][84][69][82][32][67][79][68][73][78][71][32][77][69][65][78][83][32]{p}

Вставляет FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANSв стек, затем печатает его. Никогда не заканчивается как нет{@}

Также забавный факт, я использовал следующий скрипт Braingolf для генерации этого кода

"FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS "l>[<$_<91+2^9-@_ 91+2^7-@l>]"{p}"@3

Groovy 79 байтов

m=" MEANS";for(;;)print"EASIER COMMUNICATION$m FASTER CODING$m FEWER CODERS$m "

Использует шпунтовую интерполяцию Groovy.

PowerShell , 100 97 байт

for(){"EASIER COMMUNICATION","FASTER CODING","FEWER CODERS"|%{Write-Host -NoNewLine "$_ MEANS "}}

Попробуйте онлайн!

Старый ответ:

PowerShell , 100 байт

while(1){"EASIER COMMUNICATION","FASTER CODING","FEWER CODERS"|%{Write-Host -NoNewLine "$_ MEANS "}}

Попробуйте онлайн!

PowerShell немного сложен для этого, потому что большинство достойных способов вывода на консоль также вставляют новую строку. Write-Hostтребуется из-за этого. Однако это все еще демонстрирует, как конвейерная обработка может сократить объем кода.

Вам нужно будет остановить выполнение через короткое время, потому что оно не вернется, поскольку это бесконечный цикл.

Изменить: сбрил 3 байта, изменив whileцикл наfor цикл.