Мій батько, який був справді хорошим APLer і навчив мене всім основ APL (та багато іншого), помер у цей день, п'ять років тому. Готуючись до 50 років APL , я знайшов цей патентний лист (перекладений для зручності тих, хто не читає датську мову) для рукописного логотипу. Це пояснює головну причину того, що APL ніколи не отримує велику базу користувачів - причина, яка, звичайно, стосується і всіх дивовижних мов для гри в гольф цієї громади:

А 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 :)

Журнал змін:

• Видалені лапки навколо атрибута 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 в Octave, тому умова циклу завжди буде істинною.

Я відчайдушно намагався зробити цікавіший підхід коротшим, але, на жаль, виявилося на 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". TheendПовинно бути на наступному рядку, але це ще один байт коротше оскільки дві дужки пропускаються.

І ще один на 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
  "...

Луа , 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цикл.