Son zamanlarda, Hare Krishna insanlarını amblemdeki mantralarıyla gördüm ve golf kodlamanın oldukça ilginç olabileceğini gördüm.

Meydan okuma

Hare Krishna mantrasını yazın , yani:

Hare Krishna Hare Krishna
Krishna Krishna Hare Hare
Hare Rama Hare Rama
Rama Rama Hare Hare

Kazanan kriterler

Bu kod golf , bayt cinsinden en kısa kod kazanır!

kurallar

• Muhafaza korunmalıdır.
• Metin yeni satırlar içermelidir.
• Satırların sonunda boşluk olabilir.
• İzleyen newline izin verilir.
• Web'den veya başka herhangi bir dış kaynaktan ayrıştırma izin verilmez.

Jöle , 22 bayt

“t,ȧṫÞċḅ»Ḳ“¡¥Ɓc’ṃs4K€Y

Çevrimiçi deneyin!

Nasıl çalışır

“t,ȧṫÞċḅ»Ḳ“¡¥Ɓc’ṃs4K€Y  Main link. No arguments.

“t,ȧṫÞċḅ»               Use Jelly's dictionary to yield the string
                        "Hare Rama Krishna". Fortunately, the words Rama, Krishna,
                        and hare (lowercase H) are in the dictionary.
         Ḳ              Split at spaces, yielding ["Hare", "Rama", "Krishna"].
          “¡¥Ɓc’        Base-250 literal; yielding 15973600.
                ṃ       Convert 15973600 to base ["Hare", "Rama", "Krishna"]
                        (ternary), where "Krishna" = 0, "Hare" = 1, and "Rama" = 2.
                 s4     Split the resulting string array into chunks of length 4.
                   K€   Join each of the four chunks by spaces.
                     Y  Join the resulting strings by linefeeds.

05AB1E , 38 bayt

İzleyen yeni satırlar tamamsa 2 byte kısaltılabilir.

“«Î‡Ä¦í¥Â“#€¦`«'kì)™ð«•2ÍZì•3BSè#4ô¨»?

Çevrimiçi deneyin!

açıklama

“«Î‡Ä¦í¥Â“                              # push the string "drama share irish dna"
          #                             # split on spaces
           €¦                           # remove the first character of each word
             `                          # split to stack as separate words 
              «'kì                      # concatenate the last 2 and prepend "k"
                  )™                    # wrap in list and title-case
                    ð«                  # append a space to each
                      •2ÍZì•            # push 27073120
                            3B          # convert to base-3: 1212221110100011
                              Sè        # index into the list with each
                                #       # split on spaces
                                 4ô     # split into pieces of 4
                                   ¨    # remove the last
                                    »   # join on spaces and newlines
                                     ?  # print without newline

Python 2,60 bayt

a="Hare"
for x in"Krishna","Rama":print a,x,a,x+'\n',x,x,a,a

Çevrimiçi deneyin!

Bu, bu girişim gibi şablon değiştirme yaklaşımlarını yeniyor gibi görünüyor .

Octave, 74 59 bayt

[{'Hare ','Krishna ','Rama ',10}{'ababdbbaadacacdccaa'-96}]

Çıkışı buradan doğrulayın .

Açıklama:

{'Hare ','Krishna ','Rama ',10}dördüncü 10olanın (newline için ASCII değeri) olduğu üç dizeli bir hücre dizisi oluşturur .

{'ababdbbaadacacdccaa'-96}yukarıdaki hücre dizisini endeksleyen bir vektördür. Vektör, dizgeden çıkardığımızdan [1 2 1 2 4 ...]beri .96ababd...

Çevreleyen köşeli parantezler, sonuçları almak yerine birleştirmek için kullanılır ans = Hare; and = Krishna; ans = ...

Retina , 39 bayt

hkhk¶kkhh
h
Hare 
*`k
Krishna 
k
Rama 

Çevrimiçi deneyin!

Çoğunlukla sade ikameler, sadece "püf noktası", *ikame sonucunu basan ve daha sonra ipi daha önce olduğu gibi geri döndüren değiştiricidir.

PHP, 61 Bayt

<?=strtr("0101
1100
0202
2200",["Hare ","Krishna ","Rama "]);

dizideki strtr değerlerini girdikten sonra basitçe basamaklardan değiştirme

Çevrimiçi deneyin!

JavaScript, 75 70 bayt

`0101
1100
0202
2200`.replace(/./g,n=>['Hare ','Krishna ','Rama '][n])

Çevrimiçi deneyin!

console.log(`0101
1100
0202
2200`.replace(/./g,n=>['Hare ','Krishna ','Rama '][n]))

C

154 bayt, 124 bayt, 96 bayt

i;main(){char*c="agagvggaavapapvppaaHare \0Krishna \0Rama \0\n";while(i<19)printf(c+c[i++]-78);}

Çevrimiçi deneyin!

Dennis sayesinde 28 byte kurtarıldı

V , 40 , 36 bayt

iHare Krishna 
 Rama ç^/ä$Ùdww.$2p

Çevrimiçi deneyin!

HexDump:

00000000: 6948 6172 6520 4b72 6973 686e 6120 0a0e  iHare Krishna ..
00000010: 2052 616d 6120 1be7 5e2f e424 d964 7777   Rama ..^/.$.dww
00000020: 2e24 3270                                .$2p

Açıklama:

iHare Krishna   " Enter 'Hare Krishna' on line 1
<C-n> Rama      " Enter 'Hare Rama' on line 2. This works because <C-n>
                " autocompletes alphabetically, and 'Hare' comes before 'Krishna'
<esc>           " Return to normal mode
ç^/             " On every line:
   ä$           "   Duplicate the text on the line horizontally
     Ù          "   Make a new copy of the line
      dw        "   Delete a word
        w       "   Move forward a word
         .      "   Delete a word again
          $     "   Move to the end of the line
           2p   "   And paste what we've deleted twice

<C-n>Komut böyle zorluklar için son derece yararlıdır. :)

C #, 109 bayt

void a(){Console.Write("{0}{1}{0}{1}\n{1}{1}{0}{0}\n{0}{2}{0}{2}\n{2}{2}{0}{0}","Hare ","Krishna ","Rama ");}

Oldukça basit, Console.Writedizgiyi dolaylı olarak biçimlendirir ve Writebunun yerine WriteLinesadece 4 baytlık tasarruf sağlamakla kalmaz, takip eden bir yeni satırdan da kaçınır. Unix tarzı yeni satırlar kullanır, böylece pencerelerde çok iyi çalışmayabilir \n;\r\n

Bir dize döndüren bir yöntemi tercih ederseniz, bu yöntem doğrudan konsola çıkacaktır:

C #, 118 bayt

string a(){return string.Format("{0}{1}{0}{1}\n{1}{1}{0}{0}\n{0}{2}{0}{2}\n{2}{2}{0}{0}","Hare ","Krishna ","Rama ");}

Alternatif olarak, tamamen bağımsız ve derlenebilir bir programa ihtiyacınız varsa:

C #, 135 bayt

class A{static void main(){System.Console.Write("{0}{1}{0}{1}\n{1}{1}{0}{0}\n{0}{2}{0}{2}\n{2}{2}{0}{0}","Hare ","Krishna ","Rama ");}}

Bu A, giriş sınıfı olarak ayarladığınız takdirde derlenmiş bir program olarak çalışmalıdır .

C, 85 bayt

i;f(){for(i=0;printf("$0$0900$$9$*$*9**$$)"[i++]-36+"Hare \0Rama \0Krishna \0\n"););}

Laik bir mantrayı tercih ederdim, ama umarım bu barışçıl dinlerden biridir.

O bkz burada çalışmak .

Bu, saf bir uygulamayı 23 bayt ile sıkıştırır.

Python 2, 92 88 74 bayt

for i in'0101311003020232200':print['Hare','Krishna','Rama','\n'][int(i)],

Çevrimiçi deneyin!

Hayır , zekice değil, hayır, en kısa değil ama hey, bu konuda yeniyim ve işe yarıyor.

Başka bir çözüm ( 84 80 bayt):

h='Hare'
k='Krishna'
r='Rama'
n='\n'
print h,k,h,k,n+k,k,h,h,n+h,r,h,r,n+r,r,h,h

Perl, 67 bayt

Bu JavaScript girişinden ilham alındı .

$_='0101
1100
0202
2200
';s/./qw'Hare Krishna Rama'[$&].$"/ge;print

Perl, 67 bayt

@_=<Hare Krishna Rama>;print"@_[split//]\n"for<0101 1100 0202 2200>

Matlab 139 136 105 bayt (@ 2501 sayesinde )

fprintf('Hare Krishna Hare Krishna\nKrishna Krishna Hare Hare\nHare Rama Hare Rama\nRama Rama Hare Hare')

Octave'de Çevrimiçi Deneyin!

MySQL, 115 100 bayt

(Teşekkürler @ manatwork!)

SELECT CONCAT(a,b,a,b,d,b,b,a,a,d,a,c,a,c,d,c,c,a,a)FROM(SELECT'Hare 'a,'Krishna 'b,'Rama 'c,'\n'd)t

R, 75 85 83 bayt

cat(x<-c("Hare ","Krishna ","\n")[c(1,2,1:3,2,2,1,1,3)],sub(x[2],"Rama ",x),sep="")

Bu bir vektör oluşturur Hare, Krishnave yeni satır, gerekli olanları alır ve daha sonra yerine tekrarlar Krishnatarafından Rama.

Her kelimeye boşluk koymak gerekiyordu ve sep=""aksi halde cat()her satırın başına boşluk koyacaktı.

PowerShell, 73 53 52 Bayt

Jeff Freeman tarafından kesinlikle yıkıldı - \nbaşka bir bayt yerine gerçek bir yeni satır kullanarak ve aynı zamanda dizi biçiminde bir tane daha kaydetti. ( (1,2)ila ,1,2)

-1 TesselatingHeckler sayesinde, dizi gösteriminde virgül yok.

$a="Hare ";"Krishna ","Rama "|%{"$a$_$a$_
$_$_$a$a"}

Eski cevabım - Başka bir kaç yöntem değiştirmeye çalıştım ama hepsi bir şekilde biraz daha uzadı.

$a,$b,$c="Hare ","Krishna ","Rama ";"$a$b$a$b
$b$b$a$a
$a$c$a$c
$c$c$a$a"

dizgede yeni satırlar var.

Oldukça basit, powershell'in çift tırnak içindeki değişkenleri genişleteceği gerçeğini ve bazı baytları kaydetmek için değişkenleri atamanın daha kısa bir yöntemini kullanır.

Sed, 72

Puan, -rbayrak için +1'i içerir .

s/^/Hari Krishna/
s/.*/& &/
s/(\S+)(.*)\b(.+)/&\n\3\2\1/p
s/K\S+/Rama/g

Çevrimiçi deneyin .

Ruby , 62 61 bayt

Bu konuda çalıştıkça, sonunda @ xnor'ın Python cevabıyla neredeyse aynı hale geldi, ancak Ruby'nin printişlevindeki argümanlar arasında boşluk bırakmadığı , beni birleştirme yerine kullanmaya zorlayan ve daha uzun bir cevapla sonuçlanan ...

@Manatwork gelen -1 bayt

%w"Krishna Rama".map{|i|puts [h=:Hare,i]*2*' ',[i,i,h,h]*' '}

Çevrimiçi deneyin!

Bash, 93 90 bayt

h="Hare " k="Krishna " r="Rama " s="$h$k$h$k\n$k$k$h$h\n$h$r$h$r\n$r$r$h$h"
echo -e "${s}"

Pyth - 45 41 bayt

Ms(GHGHbHHGG)K"Hare "gK"Krishna "gK"Rama 

Dene

AHK , 107 92 bayt

Bu çok saçma geliyor ama bunu yapmak için AHK'da daha kısa bir yol bulamıyorum:

h=Hare
k=Krishna
Send %h% %k% %h% %k%`n%k% %k% %h% %h%`n%h% Rama %h% Rama`nRama Rama %h% %h%

İşte ilk denediğim şey 107 bayt ve süslü olmaya çalıştı. Dijital Travmanın da belirttiği gibi , sadece ham metni göndermek daha kısa olurdu.

n=1212422114131343311
a=Hare |Krishna |Rama |`n
StringSplit,s,a,|
Loop,Parse,n
r:=r s%A_LoopField%
Send %r%

StringSplit , ilk dizin olarak 1 olan bir sözde dizi oluşturur. Böylece ilk terime, s1ikincisi s2vb. İle atıfta bulunulur .

Toplu iş, 75 bayt

@for %%h in (Krishna Rama)do @echo Hare %%h Hare %%h&echo %%h %%h Hare Hare

C 96 bayt

*v[]={"Hare ","Krishna ","Rama ","\n"};
main(){for(long a=0x30ae2305d10;a/=4;printf(v[a&3]));}

Duadan sonra hangi sözcüğün gerekli olduğunu bulmak için sadece iki bilgi parçasına ihtiyacınız vardır, bu nedenle bir grup bellek kullanmak ve onu bir dize olarak kodlamak yerine, sadece 40 bitlik bir tamsayı olarak kodlayabilirsiniz (yani, uzun bir int içinde). ).

ksh / bash / sh, 66 bayt

h=Hare;for j in Krishna Rama;do echo $h $j $h $j"
"$j $j $h $h;done

APL (Dyalog) , 47 bayt

⎕IO←0Birçok sistemde varsayılan olanı gerektirir .

↑∊¨↓'Krishna ' 'Hare ' 'Rama '[(4⍴3)⊤8×4 1 5 2]

Çevrimiçi deneyin!

8×4 1 5 2 çarpmak; [32,8,40,16]

(4⍴3)⊤ 4 basamaklı tabana 3 dönüştürmek; matris [[1,0,1,0], [0,0,1,1], [1,2,1,2], [2,2,1,1]]

... [... ] endeks

↓ listeler listesine bölün

∊¨ enlist (her birini düzleştir)

↑ matriks içine karıştırın (boşluklarla doldurun)

Retina, 60

Sed cevabımın doğrudan bağlantı noktası :

Hari Krishna
. +
0 $ 0
: (*.) '(\ S +) \ B (. +)
$ 0¶ 3 $ 2 $ 1 $
K \ S +
Rama

Çevrimiçi deneyin .

Java 7, 104 103 bayt

String c(){return"xyxy\nyyxx\nxRama xRama\nRama Rama xx".replace("x","Hare ").replace("y","Krishna ");}

Açıklama:

String c(){                                      // Method without parameters and String return-type
  return"xyxy\nyyxx\nxRama xRama\nRama Rama xx"  //  Return this String
    .replace("x","Hare ")                        //  after we've replaced all "x" with "Hare "
    .replace("y","Krishna ");                    //  and all "y" with "Krishna "
}                                                // End of method

Burada dene.

Toplu, 117 111 103 bayt

@set a=Hare &set b=Krishna &set c=Rama 
@echo %a%%b%%a%%b%^

%b%%b%%a%%a%^

%a%%c%%a%%c%^

%c%%c%%a%%a%

Şimdi 103'e kadar takip eden yeni hatlara izin veriliyor.

^\n\nilk üç satırın sonuna yeni bir satır eklemek için kullanılır ve sonrasında bir boşluk olur Rama.

Perl, 76 74 bayt

$_=121202211;$_.=0 .y/2/3/r;print$_?(0,Hare,Krishna,Rama)[$_].$":$/for/./g