Gerçekten iyi bir APLer olan ve bana APL'nin temellerini (ve çok daha fazlasını) öğreten babam , beş yıl önce bu günde vefat etti. Elli bir logo için APL'nin 50 Yılı'na hazırlık aşamasında , bu patent mektubunu (Danca okumamış kişilerin kolaylığı için tercüme edilmiştir) buldum . APL'nin asla büyük bir kullanıcı tabanı edinmemesinin ana nedenini açıklıyor - tabii ki bu topluluğun tüm şaşırtıcı golf dilleri için de geçerli bir neden:

3497/77 Req. 29 ^inci Ağustos 1977 de, 13

Henri Brudzewsky, mühendislik danışmanlığı şirketi Mindevej 28, Søborg,

bilgisayarlar dahil olmak üzere 9. sınıf , özellikle APL kodlu bilgisayarlar,
42. sınıf: özellikle APL kodlu bilgisayarların kullanımı sırasında BT servis ajansı şirketi.

Görev

Sınırsız tekrarlanan metin çıktısı, EASIER COMMUNICATION MEANS FASTER CODING MEANS FEWER CODERS MEANS yeni satırlar olmadan üretilir. Sen ile metin başlayabilir EASIERveya FASTERveya FEWER.

05AB1E , 25 bayt

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

Çevrimiçi deneyin!

Açıklama:

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

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

Düzenleme: Bazı insanlar yazı tipinin kendileri için çok uygun olmadığını bu yüzden birkaç piksel ayarlaması yapabileceğiniz bir versiyondur:

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

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

Çevrimiçi deneyin!

Vim 69 bayt

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

HTML, 122 bayt.

Üzgünüm, kendime yardım edemiyorum.

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

Python 2 , 82 81 bayt

Sızan Rahibe sayesinde -1 bayt.

Muhtemelen yanlış bir şey yapıyorum ama gerçekten çok geç oldu. Sondaki virgül dikkat edin.

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

Çevrimiçi deneyin!

Başka bir çözüm, 85 bayt

Muhtemelen bunu daha da golf oynayabilirim.

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

Çevrimiçi deneyin!

Jöle , 33 29 bayt

Outgolfer Erik sayesinde 4 byte.

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

Çevrimiçi deneyin!

Brachylog , 70 bayt

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

Çevrimiçi deneyin!

Nasıl çalışır

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

HTML / CSS (yalnızca firefox), 179 177 183 176 173 bayt

<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 en düşük puanlara yakın hiçbir yerde, ben sadece herhangi bir JS dahil olmadan, HTML / CSS sonsuz repitition almanın eğlenceli olacağını düşündüm :)

Değişiklikler:

• Kimlik özelliği etrafında kaldırılan tırnaklar
• metni "doğru" şekilde tekrarladı, böylece metni doğru şekilde sarardı
• tek hat çıkışına değiştirildi
• 3 bayttan tasarruf etmek için width:100%stili değiştirright:0

Python 3 , 87 bayt

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

Çevrimiçi deneyin!

C (gcc) , 92 bayt

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

Çevrimiçi deneyin!

LOLKOD , 116 bayt

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

Çevrimiçi deneyin!

Ruby, 77 bayt

" MEANS "1 byte :-) kaydedilen bir değişkene atama

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

JavaScript (ES6), 90 87 bayt

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

İşlevsel Alternatif, 100 bayt

"İşlev" burada "tarayıcınızı çökertmeyecek" anlamına gelir (en azından bir süre)

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

Befunge , 73 bayt

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

Çevrimiçi deneyin!

Octave, 86 bayt

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

Açıklama:

Bu oldukça kendi kendini açıklayıcı. Buradaki tek gerçek "numara" kullanmak while fprintf. Bir fprintfdönüş argümanı verildiğinde, yazdırılan karakter sayısını döndürür ve sıfır olmayan tüm sayılar trueOctave olarak kabul edilir , bu nedenle döngü koşulu daima gerçek olur.

Umutsuzca daha ilginç bir yaklaşımı kısaltmaya çalıştım, ancak maalesef 9 byte daha uzun çıktı:

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

Bu , daha kısa bir sürüm olan doğrudan dizinleme kullanarak dizeleri 'ER CO've ' MEANS'dizgiyi doğru konumlara yerleştirmeye çalışır .'ababab'-96[1 2 1 2 1 2]

Bu biraz daha kısaydı (93 bayt), ancak yine de naif yaklaşımdan daha uzundu

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

Ve bir diğeri (89 bayt), Level River St'in yaklaşımını kullanarak:

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

Bu teoride, orijinal çözümden daha az bir bayt için çalışmalıdır, ancak garip bir nedenden dolayı başarısız olur:

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

Bu fprintf('abc def')eşdeğer buggy özelliğini kullanır fprintf"abc def". Bir endsonraki satırda olmalı, ancak iki parantez atlandığı için hala bir bayt daha kısa.

87 için bir tane daha:

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

Denemediğimi söyleme :)

Alice , 70 bayt

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

Çevrimiçi deneyin!

açıklama

Ne yazık ki, MEANS(boşluklarla) tekrar kullanmak, sadece bir seferde her şeyi basmak yerine sadece tek bir bayt kazandırır. Sonuç olarak, ayıklamak ER COaslında bir bayta mal olacaktır (ya da muhtemelen daha fazla, çünkü başka bir bölüm ayıklamak biraz daha pahalı olacaktır).

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

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

Pyth , 69 bayt

Wp"FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS 

Çevrimiçi deneyin!

Nasıl çalışır

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

Lua , 92 bayt

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

Çevrimiçi deneyin!

Java (OpenJDK 9) , 114 bayt

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

Çevrimiçi deneyin! Yürütmeyi birkaç saniye sonra durdurun, çünkü ne zaman duracağını bilmiyor.

C, 86 bayt

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

Çevrimiçi çalıştığını görün .

bc , 76 bayt

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

Perl 6 ,  81 80  79 bayt

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

Dene

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

Dene

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

Dene

MATL , 68 bayt

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

Çevrimiçi deneyin!

açıklama

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

Aksiyom, 92 89 bayt

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

Axiom penceresine bir satır ekleyin. Muhtemelen "\ n" yazmayan "fortranLiteral" den daha kısa bir fonksiyon var.

Braingolf , 78 bayt

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

veya

Braingolf , 77 bayt [yarışmayan]

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

Bu, açgözlü modifier ( &) karakterini char print operatörü ( @) ile kullanmakla ilgili 2 hatayı düzeltmek zorunda kaldığım için rekabet etmiyor

Boş , 267 bayt

[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ığına iter FEWER CODERS MEANS EASIER COMMUNICATION MEANS FASTER CODING MEANS, sonra yazdırır. Asla hayır olarak sona ermez{@}

Ayrıca eğlenceli gerçeği, bu kodu oluşturmak için aşağıdaki Braingolf komut dosyasını kullandım

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

Groovy 79 bayt

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

Groovy'nin string enterpolasyonunu kullanır.

PowerShell , 100 97 bayt

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

Çevrimiçi deneyin!

Daha eski cevap:

PowerShell , 100 bayt

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

Çevrimiçi deneyin!

PowerShell bunun için biraz zor, çünkü konsola en saygın çıkış yolu yeni bir satır da ekliyor. Write-Hostbu nedenle gereklidir. Bununla birlikte, boru hattının kodlama ayakizini nasıl kısaltabileceğini göstermektedir.

Uygulamayı kısa bir süre sonra durdurmanız gerekecek çünkü sonsuz bir döngü olduğu için geri dönmeyecek.

Düzenleme: bir whiledöngü bir döngü olarak değiştirerek 3 bayt kapalı tıraş for.