Baru-baru ini, saya telah melihat orang-orang Hare Krishna dengan mantra mereka di lambang dan saya menemukan itu mungkin cukup menarik untuk kode golf.

Tantangan

Tulis mantra Hare Krishna , yaitu:

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

Kriteria menang

Ini adalah kode-golf , jadi kode terpendek dalam byte menang!

Aturan

• Casing harus dilestarikan.
• Teks harus berisi baris baru.
• Garis mungkin memiliki spasi tambahan.
• Trailing newline diizinkan.
• Parsing dari web atau sumber daya eksternal lainnya tidak diizinkan.

Jelly , 22 byte

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

Cobalah online!

Bagaimana itu bekerja

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

Dapat dipersingkat 2 byte jika mengikuti baris baru tidak apa-apa.

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

Cobalah online!

Penjelasan

“«Î‡Ä¦í¥Â“                              # 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 byte

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

Cobalah online!

Ini tampaknya mengalahkan pendekatan penggantian templat seperti upaya ini .

Oktaf, 74 59 byte

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

Verifikasi output di sini .

Penjelasan:

{'Hare ','Krishna ','Rama ',10}menciptakan array sel dengan tiga string, di mana yang keempat adalah 10(nilai ASCII untuk baris baru).

{'ababdbbaadacacdccaa'-96}adalah vektor yang mengindeks array sel di atas. Vektor ini [1 2 1 2 4 ...]karena kita kurangi 96dari string ababd....

Kurung kotak di sekitarnya digunakan untuk menggabungkan hasil, bukan mendapatkan ans = Hare; and = Krishna; ans = ...

Retina , 39 byte

hkhk¶kkhh
h
Hare 
*`k
Krishna 
k
Rama 

Cobalah online!

Sebagian besar penggantian sederhana, satu-satunya "trik" adalah pengubah *yang mencetak hasil substitusi dan kemudian mengembalikan string kembali ke apa yang sebelumnya.

PHP, 61 Bytes

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

cukup penggantian dari digit sebagai kunci dalam array dengan strtr nilai

Cobalah online!

JavaScript, 75 70 byte

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

Cobalah online!

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

C

154 byte, 124 byte, 96 byte

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

Cobalah online!

28 byte disimpan, terima kasih kepada Dennis

V , 40 , 36 byte

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

Cobalah online!

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

Penjelasan:

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

The <C-n>Perintah ini sangat berguna untuk tantangan seperti ini. :)

C #, 109 byte

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

Cukup mudah, Console.Writesecara implisit memformat string, dan menggunakan Writebukan WriteLinehanya menghemat 4 byte, tetapi juga menghindari baris baru. Menggunakan baris Unix-style sehingga mungkin tidak bekerja dengan baik pada windows, tambahan 6 byte untuk jendela dengan mengubah \nke\r\n

Metode ini akan menampilkan langsung ke konsol, jika Anda lebih suka metode yang mengembalikan string:

C #, 118 byte

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

Atau jika Anda membutuhkan program yang sepenuhnya berdiri sendiri dan dapat dikompilasi:

C #, 135 byte

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

Ini harus berfungsi sebagai program yang dikompilasi asalkan Anda menetapkan Asebagai kelas entri.

C, 85 byte

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

Saya lebih suka mantra sekuler, tetapi saya harap ini adalah salah satu dari agama-agama yang damai itu.

Lihat berhasil di sini .

Ini memadatkan implementasi yang naif sebesar 23 byte.

Python 2, 92 88 74 byte

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

Cobalah online!

Tidak , ini tidak pintar, tidak, ini bukan yang terpendek tapi hei, saya baru dalam hal ini dan itu berhasil.

Solusi lain ( 84 80 byte):

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 byte

Terinspirasi oleh entri JavaScript ini .

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

Perl, 67 byte

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

Matlab 139 136 105 byte (terima kasih kepada @ 2501 )

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

Cobalah Online dalam Oktaf!

MySQL, 115 100 byte

(Terima kasih @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 byte

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

Ini membuat vektor dengan Hare,, Krishnadan baris baru, mengambil yang diperlukan, dan kemudian mengulanginya Krishnadengan Rama.

Diperlukan untuk memasukkan spasi pada setiap kata dan sep=""karena jika tidak cat()akan memberi spasi pada awal setiap baris.

PowerShell, 73 53 52 Bytes

benar-benar dihancurkan oleh Jeff Freeman - menggunakan baris baru yang sebenarnya daripada \nmenyimpan byte lain, dan juga menyimpan satu lagi pada format array. (dari (1,2)ke ,1,2)

-1 terima kasih kepada TesselatingHeckler, tidak ada koma dalam notasi array.

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

Jawaban lama saya - Mencoba beberapa metode pengganti lain tetapi entah bagaimana akhirnya sedikit lebih lama.

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

ada baris baru di string.

cukup mudah, menggunakan fakta bahwa PowerShell akan memperluas variabel dalam tanda kutip ganda, dan metode yang lebih pendek untuk menetapkan variabel untuk menghemat beberapa byte.

Sed, 72

Skor termasuk +1 untuk -rbendera.

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

Cobalah online .

Ruby , 62 61 byte

Ketika saya mengerjakan ini, akhirnya menjadi hampir identik dengan jawaban Python @ xnor, kecuali Ruby tidak memiliki spasi di antara argumen dalam printfungsinya, memaksa saya untuk menggunakan gabungan sebagai gantinya dan menghasilkan jawaban yang lebih panjang ...

-1 byte dari @manatwork

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

Cobalah online!

Bash, 93 90 byte

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 byte

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

Cobalah

AHK , 107 92 byte

Ini terasa konyol tetapi saya tidak dapat menemukan cara yang lebih pendek di AHK untuk melakukan ini:

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

Inilah yang saya coba pertama yaitu 107 byte dan mencoba menjadi mewah. Seperti yang ditunjukkan oleh Digital Trauma , akan lebih singkat jika hanya mengirim teks mentah.

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

StringSplit membuat pseudo-array dengan 1 sebagai indeks pertama. Jadi istilah pertama direferensikan dengan s1, yang kedua dengan s2, dll. Jika tidak, tidak ada yang mewah di sini.

Batch, 75 byte

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

C 96 byte

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

Anda hanya perlu dua bit informasi untuk mencari tahu kata mana dari doa yang diperlukan selanjutnya, jadi alih-alih menggunakan banyak memori dan menyandikannya sebagai string, Anda bisa menyandikannya sebagai integer 40 bit (mis. Di dalam sebuah int panjang ).

ksh / bash / sh, 66 byte

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

APL (Dyalog) , 47 byte

Membutuhkan ⎕IO←0yang default pada banyak sistem.

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

Cobalah online!

8×4 1 5 2 berkembang biak; [32,8,40,16]

(4⍴3)⊤ dikonversi ke basis 4 digit 3; matriks [[1,0,1,0], [0,0,1,1], [1,2,1,2], [2,2,1,1]]

... [... ] indeks

↓ dipecah menjadi daftar daftar

∊¨ minta (ratakan masing-masing)

↑ campur menjadi matriks (padding dengan spasi)

Retina, 60

Port langsung dari jawaban sed saya :

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

Cobalah online .

Java 7, 104 103 byte

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

Penjelasan:

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

Coba di sini.

Batch, 117 111 103 byte

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

Turun ke 103 sekarang setelah mengikuti baris baru diizinkan.

^\n\ndigunakan untuk menyisipkan baris baru di akhir tiga baris pertama dan ada spasi setelahnya Rama.

Perl, 76 74 byte

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