Cha tôi là một APLer thực sự giỏi và đã dạy tôi tất cả những điều cơ bản về APL (và nhiều hơn nữa), đã qua đời vào ngày này, năm năm trước. Để chuẩn bị cho 50 năm APL , tôi đã tìm thấy lá thư bằng sáng chế này (được dịch để thuận tiện cho những người không đọc tiếng Đan Mạch) cho một logo viết tay. Nó giải thích một lý do chính khiến APL không bao giờ có được một cơ sở người dùng lớn - một lý do tất nhiên áp dụng cho tất cả các ngôn ngữ chơi golf tuyệt vời của cộng đồng này:

Một 3497/77 Yêu cầu. 29 ^ngày tháng 8 năm 1977 tại 13

Henri Brudzewsky, công ty tư vấn kỹ thuật, Mindevej 28, Søborg,

lớp 9 , bao gồm máy tính, đặc biệt là máy tính mã hóa APL,
lớp 42: Công ty đại lý dịch vụ CNTT, đặc biệt là trong quá trình sử dụng máy tính mã hóa APL.

Bài tập

Sản xuất đầu ra lặp lại vô hạn của văn bản EASIER COMMUNICATION MEANS FASTER CODING MEANS FEWER CODERS MEANS không có dòng mới. Bạn có thể bắt đầu văn bản với EASIERhoặc FASTERhoặc FEWER.

05AB1E , 25 byte

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

Hãy thử trực tuyến!

Giải trình:

[‘æƒË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 byte

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

Chỉnh sửa: Một số người đã thấy rằng phông chữ không phù hợp với họ, vì vậy đây là phiên bản cho phép bạn điều chỉnh một vài pixel:

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

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

Hãy thử trực tuyến!

Vim 69 byte

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

HTML, 122 byte.

Xin lỗi, không thể giúp tôi.

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

Python 2 , 82 81 byte

-1 byte nhờ Leaky Nun.

Có lẽ tôi đang làm gì đó sai nhưng thực sự rất muộn nên tôi ạ. Lưu ý dấu phẩy.

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

Hãy thử trực tuyến!

Một giải pháp khác, 85 byte

Tôi có thể chơi golf này hơn nữa.

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

Hãy thử trực tuyến!

Thạch , 33 29 byte

4 byte nhờ Erik the Outgolfer.

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

Hãy thử trực tuyến!

Brachylog , 70 byte

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

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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

HTML / CSS (chỉ firefox), 179 177 183 176 173 byte

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

Chắc chắn không nơi nào có điểm số thấp nhất, tôi chỉ nghĩ sẽ rất vui nếu nhận được sự lặp lại vô hạn trong HTML / CSS, mà không có bất kỳ JS nào tham gia :)

Thay đổi:

• Xóa dấu ngoặc kép quanh thuộc tính id
• thêm "vòng" lặp lại nền để kéo dài văn bản để nó kết thúc chính xác
• đã thay đổi thành đầu ra một dòng
• thay thế width:100%kiểu bằng right:0để tiết kiệm 3 byte

Python 3 , 87 byte

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

Hãy thử trực tuyến!

C (gcc) , 92 byte

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

Hãy thử trực tuyến!

LOLCODE , 116 byte

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

Hãy thử trực tuyến!

Ruby, 77 byte

gán " MEANS "cho một biến được lưu tất cả 1 byte :-)

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

JavaScript (ES6), 90 87 byte

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

Chức năng thay thế, 100 byte

"Chức năng" ở đây có nghĩa là "sẽ không làm sập trình duyệt của bạn" (ít nhất là trong một thời gian)!

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

Befunge , 73 byte

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

Hãy thử trực tuyến!

Octave, 86 byte

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

Giải trình:

Điều này là khá tự giải thích. "Bí quyết" thực sự duy nhất ở đây là sử dụng while fprintf. Khi fprintfđược đưa ra một đối số trả về, nó sẽ trả về số lượng ký tự được in và tất cả các số khác không được xem xét truetrong Octave, vì vậy điều kiện vòng lặp sẽ luôn đúng.

Tôi đã cố gắng để làm cho cách tiếp cận thú vị hơn ngắn hơn, nhưng hóa ra nó dài hơn 9 byte, thật không may:

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

Điều này cố gắng chèn các chuỗi 'ER CO'và ' MEANS'vào chuỗi tại các vị trí chính xác, sử dụng lập chỉ mục trực tiếp trong đó 'ababab'-96là phiên bản ngắn hơn [1 2 1 2 1 2].

Cái này ngắn hơn một chút (93 byte), nhưng vẫn dài hơn cách tiếp cận ngây thơ

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

Và một số khác (89 byte), sử dụng phương pháp của Level River St:

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

Điều này sẽ hoạt động trên lý thuyết, với một byte ít hơn giải pháp ban đầu, nhưng nó thất bại vì một số lý do kỳ lạ:

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

Điều này sử dụng tính năng lỗi fprintf('abc def')tương đương với fprintf"abc def". Các endphải nằm trên dòng tiếp theo, nhưng nó vẫn còn một byte ngắn kể từ khi hai dấu ngoặc đơn được bỏ qua.

Và một cái nữa cho 87:

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

Chà, đừng nói là tôi đã không thử :)

Alice , 70 byte

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

Hãy thử trực tuyến!

Giải trình

Thật không may, việc sử dụng lại MEANS(có khoảng trắng) chỉ tiết kiệm được một byte thay vì chỉ in toàn bộ trong một lần. Do đó, việc trích xuất ER COsẽ thực sự tốn một byte (hoặc có thể nhiều hơn, bởi vì sẽ tốn kém hơn một chút để trích xuất phần khác).

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

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

Bình thường , 69 byte

Wp"FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS 

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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

Lua , 92 byte

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

Hãy thử trực tuyến!

Java (OpenJDK 9) , 114 byte

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

Hãy thử trực tuyến! Dừng thực thi sau vài giây vì không biết khi nào nên dừng.

C, 86 byte

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

Nhìn thấy nó hoạt động trực tuyến .

bc , 76 byte

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

Perl 6 ,  81 80  79 byte

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

Thử nó

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

Thử nó

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

Thử nó

MATL , 68 byte

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

Hãy thử trực tuyến!

Giải trình

`                                                     % 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)

Tiên đề, 92 89 byte

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

chèn một dòng vào cửa sổ Axiom. Có thể có một hàm ngắn hơn "fortranLiteral" không ghi "\ n"

Braingolf , 78 byte

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

hoặc là

Braingolf , 77 byte [không cạnh tranh]

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

Điều này không cạnh tranh vì tôi phải sửa 2 lỗi liên quan đến việc sử dụng công cụ sửa đổi tham lam ( &) với toán tử in char ( @)

Trống , 267 byte

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

Đẩy FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS vào ngăn xếp, sau đó in nó. Không bao giờ chấm dứt là không{@}

Một sự thật thú vị, tôi đã sử dụng tập lệnh Braingolf sau đây để tạo mã này

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

Groovy 79 byte

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

Sử dụng phép nội suy chuỗi Groovy.

PowerShell , 100 97 byte

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

Hãy thử trực tuyến!

Câu trả lời cũ hơn:

PowerShell , 100 byte

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

Hãy thử trực tuyến!

PowerShell là một chút khó khăn cho việc này bởi vì hầu hết các cách xuất sắc vào bảng điều khiển cũng chèn một dòng mới. Write-Hostđược yêu cầu vì điều này. Tuy nhiên, nó vẫn cho thấy làm thế nào đường ống có thể rút ngắn dấu chân mã hóa.

Bạn sẽ cần dừng thực thi sau một thời gian ngắn vì nó sẽ không quay trở lại vì đây là một vòng lặp vô hạn.

Chỉnh sửa: cạo 3 byte bằng cách thay đổi một whilevòng lặp thành một forvòng lặp.