정말 좋은 APLer 였고 5 년 전에이 날 세상을 떠난 APL (및 그 이상)의 모든 기초를 가르쳐 준 아버지 . 50 년의 APL을 준비하면서 필자는 이 특허 편지 (덴마크어를 읽지 않은 사람들의 편의를 위해 번역됨)가 손으로 쓴 로고에 대해 발견했습니다. APL이 대규모 사용자 기반을 얻지 못한 주요 이유를 설명합니다. 물론이 커뮤니티의 모든 놀라운 골프 언어에도 적용됩니다.

3497/77 요구 사항 29 ^일 8 월 13 일에서 1977

엔지니어링 컨설팅 회사 인 Henri Brudzewsky, Søborg의 Mindevej 28,

컴퓨터, 특히 APL 코딩 된 컴퓨터를 포함하는 클래스 9 ,
클래스 42 : 특히 APL 코딩 된 컴퓨터의 사용 중 IT 서비스 대행사.

태스크

줄 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>

파이썬 2 , 82 81 바이트

Leaky Nun 덕분에 -1 바이트.

아마 뭔가 잘못하고 있지만 정말 늦었어요. 후행 쉼표에 유의하십시오.

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 바이트

Outgolfer Erik에게 4 바이트 감사합니다.

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

온라인으로 사용해보십시오!

Brachylog , 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 (파이어 만) 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)}

Certianly 가장 낮은 점수에 가까운 곳은 JS가 없다면 HTML / CSS에서 무한한 회개를 얻는 것이 재미있을 것이라고 생각했습니다. :)

변경 로그:

• id 속성 주변의 따옴표를 제거했습니다.
• 텍스트가 올바르게 줄 바꿈되도록 "둥근"배경 반복을 추가했습니다.
• 단일 라인 출력으로 변경
• width:100%스타일을 right:03 바이트로 대체

파이썬 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}

자바 스크립트 (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반환 인수를 주어, 그것은 인쇄 된 문자의 수를 반환하며, '0'이 아닌 숫자가 고려되는 true루프 조건이 항상 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

Level River St의 접근 방식을 사용하는 또 다른 하나 (89 바이트) :

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

이것은 원래 솔루션보다 1 바이트 적은 이론적으로 작동해야하지만 이상한 이유로 실패합니다.

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

글쎄, 내가 시도하지 않았다고 말하지 마라 :)

Alice , 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

온라인으로 사용해보십시오!

자바 (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 "

펄 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 "

Axiom 창에 한 줄로 삽입하십시오. "\ n"을 쓰지 않는 "fortranLiteral"보다 짧은 함수가있을 수 있습니다.

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+>]

&char print 연산자 ( @) 와 함께 욕심 많은 수정 자 ( )를 사용하는 것과 관련하여 2 가지 버그를 수정해야했기 때문에 이것은 경쟁이 아닙니다.

공백 , 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

그루비 79 바이트

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

그루비의 문자열 보간을 사용합니다.

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이 때문에 필요합니다. 그러나 여전히 파이프 라이닝이 코딩 풋 프린트를 줄이는 방법을 보여줍니다.

무한 루프이므로 반환되지 않으므로 짧은 시간 후에 실행을 중지해야합니다.

편집 : while루프를 루프로 변경하여 3 바이트를 줄 for였습니다.