เมื่อเร็ว ๆ นี้ฉันเคยเห็นคน Hare Krishna พร้อมกับตราสัญลักษณ์ของพวกเขาและฉันพบว่ามันค่อนข้างน่าสนใจในการเขียนโปรแกรมกอล์ฟ

ความท้าทาย

เขียนมนต์พระกฤษณะเช่น:

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

เกณฑ์การชนะ

นี่คือรหัส - กอล์ฟดังนั้นรหัสที่สั้นที่สุดในหน่วยไบต์ชนะ!

กฎระเบียบ

• ปลอกจะต้องเก็บรักษาไว้
• ข้อความควรมีบรรทัดใหม่
• บรรทัดอาจมีช่องว่างต่อท้าย
• อนุญาตการขึ้นบรรทัดใหม่
• แยกจากเว็บหรือทรัพยากรภายนอกอื่น ๆ ไม่ได้รับอนุญาต

เยลลี่ , 22 ไบต์

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

ลองออนไลน์!

มันทำงานอย่างไร

“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 ไบต์

สามารถสั้นลงได้ 2 ไบต์หากการขึ้นบรรทัดใหม่ไม่เป็นไร

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

ลองออนไลน์!

คำอธิบาย

“«Î‡Ä¦í¥Â“                              # 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 ไบต์

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

ลองออนไลน์!

ดูเหมือนว่าจะเอาชนะวิธีเปลี่ยนเทมเพลตเช่นความพยายามนี้

ระดับแปดเสียง74 59 ไบต์

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

ตรวจสอบการส่งออกที่นี่

คำอธิบาย:

{'Hare ','Krishna ','Rama ',10}สร้างอาร์เรย์เซลล์ที่มีสามสตริงโดยที่ที่สี่คือ10(ASCII-value สำหรับ newline)

{'ababdbbaadacacdccaa'-96}เป็นเวกเตอร์ที่ทำดัชนีอาร์เรย์เซลล์ด้านบน เวกเตอร์คือ[1 2 1 2 4 ...]ตั้งแต่เราลบจากสตริง96ababd...

วงเล็บเหลี่ยมโดยรอบถูกใช้เพื่อต่อผลลัพธ์แทนที่จะเชื่อมโยง ans = Hare; and = Krishna; ans = ...

เรติน่า 39 ไบต์

hkhk¶kkhh
h
Hare 
*`k
Krishna 
k
Rama 

ลองออนไลน์!

การแทนที่แบบธรรมดาส่วนใหญ่ "เคล็ดลับ" เพียงอย่างเดียวคือตัวดัดแปลง*ที่พิมพ์ผลลัพธ์ของการแทนที่แล้วแปลงสตริงกลับเป็นสิ่งที่เคยเป็นมาก่อน

PHP, 61 ไบต์

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

เพียงแค่เปลี่ยนจากตัวเลขเป็นคีย์ในอาร์เรย์ด้วยค่าstrtr

ลองออนไลน์!

JavaScript, 75 70 ไบต์

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

ลองออนไลน์!

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

C

154 ไบต์, 124 ไบต์, 96 ไบต์

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

ลองออนไลน์!

บันทึก 28 ไบต์ขอบคุณDennis

V , 40 , 36 ไบต์

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

ลองออนไลน์!

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

คำอธิบาย:

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>คำสั่งเป็นประโยชน์อย่างมากสำหรับความท้าทายเช่นนี้ :)

C #, 109 ไบต์

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

ค่อนข้างตรงไปตรงมาConsole.Writeโดยปริยายจัดรูปแบบสตริงและใช้WriteแทนการWriteLineไม่เพียงบันทึก 4 ไบต์ แต่หลีกเลี่ยงการขึ้นบรรทัดใหม่ ใช้การขึ้นบรรทัดใหม่สไตล์ Unix ดังนั้นอาจใช้งานไม่ได้บน Windows มากขึ้น 6 ไบต์พิเศษสำหรับ windows โดยเปลี่ยน\nเป็น\r\n

เมธอดนี้จะส่งเอาต์พุตไปยังคอนโซลโดยตรงหากคุณต้องการวิธีที่ส่งคืนสตริง:

C #, 118 ไบต์

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

อีกทางเลือกหนึ่งถ้าคุณต้องการโปรแกรมแบบสแตนด์อะโลนและคอมไพล์อย่างสมบูรณ์:

C #, 135 ไบต์

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

สิ่งนี้ควรทำงานเป็นโปรแกรมที่คอมไพล์โดยที่คุณตั้งค่าAเป็นคลาสรายการ

C, 85 ไบต์

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

ฉันต้องการมนต์โลก แต่ฉันหวังว่านี่เป็นหนึ่งในศาสนาที่สงบสุข

เห็นมันทำงานที่นี่

สิ่งนี้บีบอัดการใช้งานที่ไร้เดียงสา 23 ไบต์

Python 2, 92 88 74 ไบต์

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

ลองออนไลน์!

ไม่มันไม่ฉลาดไม่ใช่ไม่ใช่สั้นที่สุด แต่เดี๋ยวก่อนฉันยังใหม่กับสิ่งนี้และใช้งานได้

โซลูชันอื่น ( 84 80 ไบต์):

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 ไบต์

แรงบันดาลใจจากรายการ JavaScriptนี้

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

Perl, 67 ไบต์

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

Matlab 139 136 105 105 ไบต์ (ขอบคุณ @ 2501 )

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

ลองออนไลน์ใน Octave!

MySQL, 115 100 ไบต์

(ขอบคุณ @ 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 ไบต์

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

มันจะสร้างเวกเตอร์ด้วยHare, Krishnaและการขึ้นบรรทัดใหม่จะใช้เวลาคนที่จำเป็นแล้วซ้ำมันเปลี่ยนจากKrishnaRama

จำเป็นต้องรวมช่องว่างในทุกคำและsep=""เพราะมิฉะนั้นcat()จะใส่ช่องว่างที่จุดเริ่มต้นของแต่ละบรรทัด

PowerShell, 73 53 52 ไบต์

ยับเยินโดยJeff Freeman - การใช้ newline จริงแทนการ\nบันทึกไบต์อื่นและยังบันทึกอีกหนึ่งรูปแบบอาเรย์ (จาก(1,2)ถึง,1,2)

-1 ต้องขอบคุณ TesselatingHeckler ไม่มีเครื่องหมายจุลภาคในรูปแบบอาร์เรย์

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

คำตอบเก่าของฉัน - ลองใช้วิธีการแทนที่อื่น ๆ สองสามวิธี แต่ทั้งหมดก็จบลงด้วยความยาวกว่าเล็กน้อย

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

มีการขึ้นบรรทัดใหม่ในสตริง

ค่อนข้างตรงไปตรงมาใช้ความจริงที่ว่า powerShell จะขยายตัวแปรภายใน doublequotes และวิธีที่สั้นกว่าในการกำหนดตัวแปรเพื่อบันทึกไบต์

Sed, 72

คะแนนรวม +1 สำหรับ-rธง

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

ลองมันออนไลน์

Ruby , 62 61 ไบต์

ในขณะที่ฉันทำสิ่งนี้ในที่สุดมันก็เกือบจะเหมือนกับคำตอบ Python ของ @ xnor ยกเว้น Ruby ไม่มีช่องว่างระหว่างอาร์กิวเมนต์ในprintฟังก์ชั่นของมันบังคับให้ฉันใช้การเข้าร่วมแทนและทำให้ได้คำตอบที่ยาวกว่า ...

-1 ไบต์จาก @manatwork

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

ลองออนไลน์!

Bash, 93 90 ไบต์

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 ไบต์

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

ลองมัน

AHK , 107 92 ไบต์

สิ่งนี้รู้สึกไร้สาระ แต่ฉันไม่สามารถหาวิธีที่สั้นกว่าใน AHK เพื่อทำสิ่งนี้:

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

นี่คือสิ่งที่ฉันลองครั้งแรกที่มีขนาด 107 ไบต์และพยายามที่จะจินตนาการ ตามที่Digital Trauma ชี้ให้เห็นว่ามันจะสั้นกว่าเพียงแค่ส่งข้อความดิบ

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

StringSplitสร้างอาร์เรย์หลอกด้วย 1 เป็นดัชนีแรก ดังนั้นเทอมแรกจะถูกอ้างอิงด้วยs1ส่วนที่สองs2เป็นต้นมิฉะนั้นจะไม่มีอะไรแฟนซีที่นี่

แบตช์ 75 ไบต์

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

C 96 ไบต์

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

คุณต้องการข้อมูลเพียงสองบิตเพื่อค้นหาว่าต้องใช้คำใดจากคำอธิษฐานต่อไปดังนั้นแทนที่จะใช้หน่วยความจำและเข้ารหัสเป็นสตริงคุณสามารถเข้ารหัสเป็นจำนวนเต็ม 40 บิต (เช่นภายใน int ที่ยาว )

ksh / bash / sh, 66 ไบต์

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

APL (Dyalog) 47 ไบต์

ต้องใช้⎕IO←0ซึ่งเป็นค่าเริ่มต้นในหลาย ๆ ระบบ

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

ลองออนไลน์!

8×4 1 5 2 คูณ; [32,8,40,16]

(4⍴3)⊤ แปลงเป็นฐาน 4 หลัก 3; เมทริกซ์ [[1,0,1,0], [0,0,1,1], [1,2,1,2], [2,2,1,1]

... [... ] ดัชนี

↓ แบ่งออกเป็นรายการ

∊¨ เกณฑ์ (แบนแต่ละรายการ)

↑ ผสมเป็นเมทริกซ์ (padding มีช่องว่าง)

เรติน่า 60

ตรงพอร์ตของคำตอบ sed ของฉัน :

กฤษณะฮาริ
. +
$ 0 $ 0
: (. *) `(\ S +) \ ข. (+)
$ 0¶ $ 3 $ 2 $ 1
K \ S +
พระราม

ลองมันออนไลน์

Java 7, 104 103 ไบต์

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

คำอธิบาย:

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

ลองที่นี่

แบตช์117 111 103 ไบต์

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

ลงมาที่ 103 ตอนนี้ขึ้นบรรทัดใหม่ที่ได้รับอนุญาต

^\n\nRamaจะใช้ในการแทรกขึ้นบรรทัดใหม่ในตอนท้ายของสามบรรทัดแรกและมีช่องว่างหลัง

Perl, 76 74 ไบต์

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