Récemment, j'ai vu des gens de Hare Krishna avec leur mantra sur l'emblème et j'ai trouvé qu'il serait peut-être intéressant de coder le golf.

Le défi

Écrivez le mantra de Hare Krishna , à savoir:

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

Critères gagnants

C'est du code-golf , donc le code le plus court en octets gagne!

Règles

• L'enveloppe doit être préservée.
• Le texte doit contenir de nouvelles lignes.
• Les lignes peuvent avoir des espaces de fuite.
• Le retour à la ligne est autorisé.
• Analyse depuis le Web ou toute autre ressource externe non autorisée.

Gelée , 22 octets

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

Essayez-le en ligne!

Comment ça fonctionne

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

Peut être raccourci de 2 octets si les retours à la ligne sont corrects.

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

Essayez-le en ligne!

Explication

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

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

Essayez-le en ligne!

Cela semble battre les approches de remplacement de modèle comme cette tentative .

Octave, 74 59 octets

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

Vérifiez la sortie ici .

Explication:

{'Hare ','Krishna ','Rama ',10}crée un tableau de cellules avec trois chaînes, où la quatrième est 10(valeur ASCII pour la nouvelle ligne).

{'ababdbbaadacacdccaa'-96}est un vecteur qui indexe le tableau de cellules ci-dessus. Le vecteur est [1 2 1 2 4 ...]puisque nous soustrayons 96de la chaîne ababd....

Les crochets sont utilisés pour concaténer les résultats, au lieu d’obtenir ans = Hare; and = Krishna; ans = ...

Retina , 39 octets

hkhk¶kkhh
h
Hare 
*`k
Krishna 
k
Rama 

Essayez-le en ligne!

Dans la plupart des substitutions simples, le seul "truc" est le modificateur *qui affiche le résultat de la substitution puis ramène la chaîne à ce qu’elle était auparavant.

PHP, 61 octets

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

simplement le remplacement des chiffres comme clé dans le tableau avec les valeurs strtr

Essayez-le en ligne!

JavaScript, 75 70 octets

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

Essayez-le en ligne!

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

C

154 octets, 124 octets, 96 octets

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

Essayez-le en ligne!

28 octets sauvés, grâce à Dennis

V , 40 , 36 octets

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

Essayez-le en ligne!

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

Explication:

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

La <C-n>commande est extrêmement utile pour des défis comme celui-ci. :)

C #, 109 octets

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

De manière assez simple, Console.Writeformate implicitement la chaîne, et utiliser Writeau lieu de WriteLinenon seulement enregistre 4 octets, mais évite une nouvelle ligne. Utilise les nouvelles lignes de style Unix, donc peut-être pas si bien sur Windows, 6 octets supplémentaires pour Windows en passant \nà\r\n

Cette méthode sera affichée directement sur la console, si vous préférez une méthode qui retourne une chaîne:

C #, 118 octets

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

Sinon, si vous avez besoin d'un programme entièrement autonome et compilable:

C #, 135 octets

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

Cela devrait fonctionner comme un programme compilé à condition que vous définissiez Acomme classe d'entrée.

C, 85 octets

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

Je préférerais un mantra laïque, mais j'espère que c'est l'une de ces religions pacifiques.

Voir le travail ici .

Cela compacte une implémentation naïve de 23 octets.

Python 2, 92 88 74 octets

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

Essayez-le en ligne!

Non , ce n'est pas intelligent, non, ce n'est pas le plus court mais bon, je suis novice dans ce domaine et ça marche.

Une autre solution ( 84 à 80 octets):

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 octets

Inspiré par cette entrée JavaScript .

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

Perl, 67 octets

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

Matlab 139 136 105 octets (merci à @ 2501 )

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

Essayez-le en ligne dans Octave!

MySQL, 115 à 100 octets

(Merci @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 octets

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

Il crée un vecteur avec Hare, Krishnaet la nouvelle ligne, prend ceux qui sont nécessaires, puis répète son remplacement Krishnapar Rama.

Nécessaire pour inclure l'espace sur chaque mot et sep=""parce que sinon cat()mettrait un espace au début de chaque ligne.

PowerShell, 73 53 52 octets

absolument démoli par Jeff Freeman - utiliser une nouvelle ligne au lieu d' \nenregistrer un autre octet et en enregistrer un de plus sur le format tableau. (de (1,2)à ,1,2)

-1 grâce à TesselatingHeckler, pas de virgule dans la notation de tableau.

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

Ma vieille réponse - J'ai essayé quelques méthodes de remplacement, mais toutes ont été légèrement plus longues.

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

il y a des nouvelles lignes dans la chaîne.

assez simple, utilise le fait que powershell développera les variables entre guillemets doubles, et une méthode plus courte d’attribution de variables pour économiser des octets.

Sed, 72

Le score inclut +1 pour le -rdrapeau.

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

Essayez-le en ligne .

Ruby , 62 61 octets

Au fur et à mesure que je travaillais sur cette question, elle devint presque identique à la réponse Python de @ xnor, sauf que Ruby n'a pas d'espaces entre les arguments dans sa printfonction, ce qui m'oblige à utiliser des jointures, ce qui entraîne une réponse plus longue ...

-1 octets de @manatwork

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

Essayez-le en ligne!

Bash, 93 90 octets

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 octets

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

L'essayer

AHK , 107 92 octets

Cela semble ridicule, mais je ne trouve pas de moyen plus court dans AHK de le faire:

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

Voici ce que j'ai d'abord essayé, soit 107 octets, et j'ai essayé d'être sophistiqué. Comme l'a souligné Digital Trauma , l'envoi du texte brut aurait été plus court.

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

StringSplit crée un pseudo-tableau avec 1 comme premier index. Donc, le premier terme est référencé avec s1, le second avec s2, etc. Sinon, il n’ya rien d’extraordinaire ici.

Lot, 75 octets

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

C 96 octets

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

Deux mots d’information sont nécessaires pour déterminer quel mot de la prière est nécessaire ensuite. Ainsi, au lieu d’utiliser un tas de mémoire et de le coder sous forme de chaîne, vous pouvez simplement le coder sous la forme d’un entier 40 bits (c.-à-d. À l'intérieur ).

ksh / bash / sh, 66 octets

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

APL (Dyalog) , 47 octets

Nécessite ⎕IO←0ce qui est la valeur par défaut sur de nombreux systèmes.

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

Essayez-le en ligne!

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

(4⍴3)⊤ convertir en base 3 à 4 chiffres; matrice [[1,0,1,0], [0,0,1,1], [1,2,1,2], [2,2,1,1]]

... [... ] index

↓ scinder en liste de listes

∊¨ enrôler (aplatir chaque)

↑ mélanger dans la matrice (remplissage avec des espaces)

Rétine, 60

Port direct de ma réponse sed :

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

Essayez-le en ligne .

Java 7, 104 103 octets

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

Explication:

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

Essayez-le ici.

Lot, 117 111 103 octets

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

Jusqu'à 103 maintenant, les retours à la ligne sont autorisés.

^\n\nest utilisé pour insérer une nouvelle ligne à la fin des trois premières lignes et il y a un espace après Rama.

Perl, 76 74 octets

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