최근에 나는 엠블럼에 그들의 진언을 가진 Hare Krishna 사람들을 보았고 골프를 코딩하는 것이 꽤 흥미로울 수 있다는 것을 알았습니다.

도전

Hare Krishna 만트라를 작성하십시오 .

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

우승 기준

이것은 code-golf 이므로 바이트 단위의 가장 짧은 코드가 이깁니다!

규칙

• 케이싱은 보존해야합니다.
• 텍스트는 줄 바꾸기를 포함해야합니다.
• 줄 뒤에 공백이있을 수 있습니다.
• 후행 줄 바꿈이 허용됩니다.
• 웹 또는 기타 외부 리소스에서 구문 분석 할 수 없습니다.

젤리 , 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

파이썬 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 값)입니다.

{'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 값으로 간단히 대체 하십시오.

온라인으로 사용해보십시오!

자바 스크립트, 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]))

씨

154 바이트, 124 바이트, 96 바이트

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

온라인으로 사용해보십시오!

Dennis 덕분에 28 바이트 절약

V , 40 , 36 바이트

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

온라인으로 사용해보십시오!

16 진 덤프 :

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대신 WriteLine4 바이트를 사용하는 대신 줄 바꿈을 피합니다. 유닉스 스타일의 줄 바꿈을 사용하므로 변경하여 창에 잘 창에 대한 추가 6 바이트를 작동하지 않을 수 있습니다 \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 바이트로 압축합니다.

파이썬 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

펄, 67 바이트

이 JavaScript 항목에서 영감을 얻었습니다 .

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

펄, 67 바이트

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

Matlab 139136105 바이트 (@ 2501 덕분에 )

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

옥타브에서 온라인으로 사용해보십시오!

MySQL, 115100 바이트

(@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및 개행가 필요한 사람을 얻어, 후 교체 반복 Krishna하여 Rama.

모든 단어에 공백을 포함해야합니다. sep=""그렇지 않으면 cat()각 줄의 시작 부분에 공백이 있어야합니다.

PowerShell, 73 53 52 바이트

Jeff Freeman에 의해 완전히 철거되었습니다. 대신 실제 줄 바꿈을 사용 \n하면 다른 바이트 가 저장되고 배열 형식으로 하나 더 저장됩니다. (에서 (1,2)까지 ,1,2)

배열 표기법에 쉼표가없는 TesselatingHeckler 덕분에 -1입니다.

$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이 ​​큰 따옴표 안에 변수를 확장한다는 사실과 일부 바이트를 절약하기 위해 변수를 할당하는 더 짧은 방법을 사용합니다.

시드, 72

점수는 -r깃발에 대해 +1을 포함합니다 .

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

온라인으로 사용해보십시오 .

루비 , 62 61 바이트

이 작업을 수행하면서 루비는 print함수에 인수 사이에 공백이 없어서 대신 조인을 사용하고 더 긴 응답을 얻는 것을 제외하고는 @xnor의 Python 답변과 거의 동일하게되었습니다 .

@manatwork에서 -1 바이트

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

온라인으로 사용해보십시오!

배쉬, 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]));}

다음에기도에서 어떤 단어가 필요한지 알아 내기 위해서는 2 비트의 정보 만 필요합니다. 따라서 많은 메모리를 사용하고 문자열로 인코딩하는 대신 40 비트 정수로 인코딩 할 수 있습니다 (예 : long 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]]

... [... ] 지수

↓ 목록으로 나누기

∊¨ 입대 (각 평평)

↑ 행렬로 혼합 (공백으로 채워짐)

망막, 60

내 sed 답변 의 직접 포트 :

하리 크리슈나
. +
$ 0 $ 0
:`(\ S +) (. *) \ b (. +)
$ 0¶ $ 3 $ 2 $ 1
K \ S +
라마

온라인으로 사용해보십시오 .

자바 (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\n는 처음 세 줄의 끝에 줄 바꿈을 삽입하는 데 사용되며 뒤에 공백이 Rama있습니다.

펄, 76 74 바이트

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