Kürzlich habe ich Hare-Krishna-Leute mit ihrem Mantra auf dem Emblem gesehen, und ich habe festgestellt, dass es sehr interessant sein kann, Golf zu codieren.

Die Herausforderung

Schreiben Sie das Hare Krishna Mantra , dh:

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

Gewinnkriterien

Das ist Code-Golf , also gewinnt der kürzeste Code in Bytes!

Regeln

• Das Gehäuse muss erhalten bleiben.
• Text sollte neue Zeilen enthalten.
• Zeilen können abschließende Leerzeichen enthalten.
• Zeilenumbruch ist erlaubt.
• Das Parsen aus dem Web oder einer anderen externen Ressource ist nicht zulässig.

Jelly , 22 Bytes

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

Probieren Sie es online!

Wie es funktioniert

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

Kann um 2 Byte gekürzt werden, wenn nachfolgende Zeilenumbrüche in Ordnung sind.

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

Probieren Sie es online!

Erläuterung

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

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

Probieren Sie es online!

Dies scheint Ansätze zum Ersetzen von Vorlagen wie diesen zu übertreffen .

Oktave, 74 59 Bytes

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

Überprüfen Sie die Ausgabe hier .

Erläuterung:

{'Hare ','Krishna ','Rama ',10}Erstellt ein Zellenarray mit drei Strings, wobei der vierte 10(ASCII-Wert für Newline) ist.

{'ababdbbaadacacdccaa'-96}ist ein Vektor, der das obige Zellenarray indiziert. Der Vektor ist [1 2 1 2 4 ...]da wir 96von der Zeichenfolge subtrahieren ababd....

Die umgebenden eckigen Klammern werden verwendet, um die Ergebnisse zu verketten, anstatt sie zu erhalten ans = Hare; and = Krishna; ans = ...

Retina , 39 Bytes

hkhk¶kkhh
h
Hare 
*`k
Krishna 
k
Rama 

Probieren Sie es online!

Bei den meisten einfachen Substitutionen ist der einzige "Trick" der Modifikator, *der das Ergebnis der Substitution ausgibt und dann die Zeichenfolge auf den vorherigen Wert zurücksetzt.

PHP, 61 Bytes

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

Ersetzen Sie einfach die Ziffern als Schlüssel im Array durch die Werte strtr

Probieren Sie es online!

JavaScript, 75-70 Bytes

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

Probieren Sie es online!

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

C

154 Bytes, 124 Bytes, 96 Bytes

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

Probieren Sie es online!

28 Bytes gespart dank Dennis

V , 40 , 36 Bytes

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

Probieren Sie es 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

Erläuterung:

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

Das <C-n> Befehl ist für solche Herausforderungen äußerst nützlich. :)

C #, 109 Bytes

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

Ziemlich einfach, Console.Writeformatiert die Zeichenfolge implizit und verwendetWrite anstelle von WriteLinespart nicht nur 4 Bytes, vermeidet aber ein Newline. Verwendet Zeilenumbrüche im Unix-Stil und funktioniert daher unter Windows möglicherweise nicht so gut. Zusätzliche 6 Byte für Windows durch Ändern von \nin\r\n

Diese Methode wird direkt an die Konsole ausgegeben, wenn Sie eine Methode bevorzugen, die eine Zeichenfolge zurückgibt:

C #, 118 Bytes

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

Alternativ, wenn Sie ein vollständig eigenständiges und kompilierbares Programm benötigen:

C #, 135 Bytes

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

Dies sollte als kompiliertes Programm funktionieren, vorausgesetzt, Sie haben es Aals Eintragsklasse festgelegt.

C 85 Bytes

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

Ich würde ein weltliches Mantra vorziehen, aber ich hoffe, dies ist eine dieser friedlichen Religionen.

Sehen Sie , wie es hier funktioniert .

Dies komprimiert eine naive Implementierung um 23 Bytes.

Python 2, 92 88 74 Bytes

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

Probieren Sie es online!

Nein , es ist nicht schlau, nein, es ist nicht die kürzeste, aber hey, ich bin neu darin und es funktioniert.

Eine andere Lösung ( 84 80 Bytes):

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 Bytes

Inspiriert von diesem JavaScript-Eintrag .

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

Perl, 67 Bytes

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

Matlab 139 136 105 Bytes (danke an @ 2501 )

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

Probieren Sie es online in Octave!

MySQL, 115 100 Bytes

(Danke @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 Bytes

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

Es schafft einen Vektor mit Hare, Krishnaund das Newline, nimmt die , die benötigt wird , und dann wiederholt sie ersetzt Krishnadurch Rama.

Mußte das Leerzeichen in jedes Wort einfügen und würde sep=""sonst cat()am Anfang jeder Zeile ein Leerzeichen setzen.

PowerShell, 73 53 52 Bytes

Absolut zerstört von Jeff Freeman - durch die Verwendung eines tatsächlichen Zeilenumbruchs anstatt eines \nweiteren Bytes wird ein weiteres Byte im Array-Format gespeichert. (von (1,2)bis,1,2 )

-1 Dank TesselatingHeckler kein Komma in der Array-Notation.

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

Meine alte Antwort - Ich habe ein paar andere Ersetzungsmethoden ausprobiert, aber alle waren irgendwie etwas länger.

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

Die Zeichenfolge enthält Zeilenumbrüche.

Verwendet die Tatsache, dass Powershell Variablen in doppelten Anführungszeichen erweitert, und eine kürzere Methode zum Zuweisen von Variablen, um einige Bytes zu sparen.

Sed, 72

Punktzahl beinhaltet +1 für die -rFlagge.

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

Probieren Sie es online aus .

Ruby , 62 61 Bytes

Während ich daran arbeitete, wurde es schließlich fast identisch mit @ xnors Python-Antwort, außer dass Ruby keine Leerzeichen zwischen den Argumenten enthält print Funktion hat, was mich zwang, stattdessen Joins zu verwenden, und zu einer längeren Antwort führte ...

-1 Bytes von @manatwork

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

Probieren Sie es online!

Bash, 93 bis 90 Bytes

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 Bytes

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

Versuch es

AHK , 107 92 Bytes

Das fühlt sich lächerlich an, aber ich kann kein kürzeres Mittel in der AHK finden, um dies zu tun:

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

Hier ist, was ich zuerst versuchte, das war 107 Bytes und versuchte, schick zu sein. Wie Digital Trauma jedoch betonte , wäre es kürzer gewesen, nur den Rohtext zu senden.

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

StringSplit erstellt ein Pseudo-Array mit 1 als erstem Index. So wird der erste Term mit s1, der zweite mit s2usw. bezeichnet. Ansonsten gibt es hier nichts Besonderes.

Batch, 75 Bytes

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

C 96 Bytes

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

Sie benötigen nur zwei Informationsbits, um herauszufinden, welches Wort aus dem Gebet als Nächstes benötigt wird. Anstatt eine Menge Speicher zu verwenden und es als Zeichenfolge zu codieren, können Sie es einfach als 40-Bit-Ganzzahl codieren (dh in einem langen Int ).

ksh / bash / sh, 66 Bytes

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

APL (Dyalog) , 47 Bytes

Benötigt, ⎕IO←0was auf vielen Systemen Standard ist.

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

Probieren Sie es online!

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

(4⍴3)⊤ in 4-stellige Basis 3 konvertieren; Matrix [[1,0,1,0], [0,0,1,1], [1,2,1,2], [2,2,1,1]]

... [... ] Index

↓ in eine Liste von Listen aufteilen

∊¨ eintragen (jeweils abflachen)

↑ in Matrix mischen (mit Leerzeichen auffüllen)

Netzhaut, 60

Direkter Port meiner sed Antwort :

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

Probieren Sie es online aus .

Java 7, 104 103 Bytes

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

Erläuterung:

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

Probieren Sie es hier aus.

Batch, 117 111 103 Bytes

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

Es sind jetzt bis zu 103 Zeilenwechsel zulässig.

^\n\nwird verwendet, um eine neue Zeile am Ende der ersten drei Zeilen einzufügen, und es folgt ein Leerzeichen Rama.

Perl, 76 74 Bytes

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