Défi:

Contribution:

Vous prenez deux entrées:
- Une chaîne contenant uniquement de l'ASCII imprimable (à l'exclusion des espaces, des tabulations ou des nouvelles lignes)
- Un caractère ASCII imprimable

Sortie:

La première ligne contiendra l'entrée de chaîne. Chaque ipremière occurrence de -modulo-3 de ce personnage se déplacera dans une direction sud-est; chaque ioccurrence de -modulo-3 se déplacera dans une direction sud; et chaque itroisième occurrence de -modulo-3 se déplacera dans une direction sud-ouest. Vous continuerez jusqu'à ce que les caractères soient sur le point d'être à leur position de départ initiale (ce qui signifie qu'il s'enroulera d'un côté à l'autre si nécessaire), puis vous imprimerez à nouveau la dernière ligne avec l'entrée de chaîne dans Terminez-le. (Notez que tous les cas de test se retrouveront à leur entrée initiale après au plus des length(input)lignes, y compris la ligne contenant l'entrée de fin. Cela peut être plus tôt cependant, comme on le voit dans ce premier cas de test ci-dessous, avec une longueur de 14, mais se terminant après 9.)

Tout cela peut être assez vague, alors voici un exemple:

Cas de test 1:

Entrée chaîne: Entrée "This_is_a_test"
caractère:'s'

Sortie:

This_is_a_test
    s s    s  
     ss   s   
      s  s    
      sss     
      sss     
      s  s    
     ss   s   
    s s    s  
This_is_a_test

Voici le même cas de test avec les chemins colorés des trois s:

où le premier 's'suit la voie verte dans une direction sud-est; le second 's'suit le chemin jaune en direction du sud; et le troisième 's'suit le chemin bleu clair dans une direction sud-ouest. (S'il y en avait un quatrième, 's'il irait à nouveau dans une direction sud-est, comme on peut le voir dans certains des autres cas de test ci-dessous.)

Règles du défi:

• Les entrées ne contiendront que de l'ASCII imprimable (à l'exclusion des espaces, des tabulations et des nouvelles lignes)
• Les formats d'E / S sont flexibles. Peut être une chaîne délimitée par une nouvelle ligne, une matrice de caractères, etc. Votre appel.
• Il est possible que le caractère donné ne soit pas présent dans la chaîne, auquel cas vous êtes autorisé à sortir la chaîne d'entrée une ou deux fois (c'est "test", 'a'-à- dire que vous pouvez avoir l'une ou l'autre de ces sorties comme sortie possible: "test\ntest"/ "test").
• Les espaces de tête sont obligatoires; les espaces de fin sont facultatifs. Une ou plusieurs nouvelles lignes de début / fin sont autorisées.

Règles générales:

• C'est le code-golf , donc la réponse la plus courte en octets l'emporte.
  Ne laissez pas les langues de golf de code vous décourager de publier des réponses avec des langues autres que le golf de code. Essayez de trouver une réponse aussi courte que possible pour «n'importe quel» langage de programmation.
• Des règles standard s'appliquent à votre réponse, vous êtes donc autorisé à utiliser STDIN / STDOUT, fonctions / méthode avec les paramètres appropriés et des programmes complets de type retour. Ton appel.
• Les failles par défaut sont interdites.
• Si possible, veuillez ajouter un lien avec un test pour votre code.
• Veuillez également ajouter une explication si nécessaire.

Cas de test / autres exemples:

Cas de test 2:

Entrée chaîne: Entrée "abcabcabcabcabc"
caractère:'b'

Sortie:

abcabcabcabcabc
  b b b    b b 
   bbb      bb 
    b        b 
   bbb       bb
b b b b      b 
 b  b  b     b 
b b b   b    b
   bb    b   bb
    b     b  b 
    bb     bbb
    b b    bbb 
    b  b  b  b 
    b   bb   bb
b   b   bb   b 
abcabcabcabcabc

Voici le même cas de test avec les chemins colorés des cinq a:

Cas de test 3:

Entrée chaîne: Entrée "only_two_paths?"
caractère:'o'

Sortie:

only_two_paths?
 o     o       
  o    o       
   o   o       
    o  o       
     o o       
      oo       
       o       
       oo      
       o o     
       o  o    
       o   o   
       o    o  
       o     o 
       o      o
only_two_paths?

Voici le même cas de test avec les chemins colorés des deux o:

Cas de test 4:

Entrée de chaîne: "lollollollollol"
entrée de caractères:'l'

Sortie:

lollollollollol
lll   ll  ll   
 ll   ll  ll   
l ll ll ll ll  
  lll l ll l ll
  llllll  ll ll
l l  ll    ll  
 ll  lll   ll  
l l l lll ll l 
  ll  l ll l  l
l l l l llll l 
 ll  lll  lll  
l l   l    ll  
  ll lll  lllll
  l l l ll l ll
lollollollollol

Voici le même cas de test avec les chemins colorés des dix l:

Cas de test 5:

Entrée de chaîne: "AbCdEeDcBaAbCdEeDcBa_CCCCC"
entrée de caractères:'C'

Sortie:

AbCdEeDcBaAbCdEeDcBa_CCCCC
C  C        C       C  C  
 C  C       C      C  CCC 
  C  C      C     C  C C C
C  C  C     C    C  C  C  
 C  C  C    C   C  C   C  
  C  C  C   C  C  C    C  
   C  C  C  C C  C     C  
    C  C  C CC  C      C  
     C  C  CC  C       C  
      C  C CC C        C  
       C  C CC         C  
        CC CC C        C  
        CC CC  C       C  
       C  C CC  C      C  
      C  C CC C  C     C  
     C  C   C  C  C    C  
    C  C    CC  C  C   C  
   C  C     C C  C  C  C  
  C  C      C  C  C  C C  
 C  C       C   C  C  CC  
C  C        C    C  C  C  
  C         C     C  C CCC
 C          C      C  CCCC
C           C       C  C  
 C          C        CCCCC
AbCdEeDcBaAbCdEeDcBa_CCCCC

Voici le même cas de test avec les chemins colorés des sept C:

Cas de test 6:

Entrée de chaîne: "XyX"
entrée de caractères:'X'

Sortie:

XyX
 XX
  X
XyX

Voici le même cas de test avec les chemins colorés des deux X:

Cas de test 7:

Entrée de chaîne: "aaaa"
entrée de caractères:'a'

Sortie:

aaaa
aa  
aaa 
 aaa
aaaa

Voici le même cas de test avec les chemins colorés des quatre a:

Stax , 24 octets

»v↕*δó‼Γ█|q┬YM╨|·£↕fßßZo

Exécutez-le et déboguez-le en ligne

Il s'agit de la représentation ascii du même programme.

YxP|Ic{{i3%v-x%%mb-!Czny&PWxP

Il obtient les indices de tous les caractères, puis les mute jusqu'à ce qu'ils soient égaux aux indices d'origine. Pour chaque changement, sortez une chaîne avec le caractère à ces indices.

Y                               Store character in y.  Now the inputs are x and y.
 xP                             Print x.
   |Ic                          Get all indices of y in x. Make a copy.
      {                   W     Loop until cancelled.
       {        m               Map index array using block.
        i3%v-                   Subtract i%3-1 from each element. i is the loop index.
             x%%                Modulo len(x)
                 b-!            Is the mutated array set-equal to the original?
                    C           If so, cancel W loop
                     zny&P      Print a string with y at all specified indices
                           xP   Finally, print x again

Perl 5 , -plF 101 100 99 98 97 96 octets

Remplacez le \0par un littéral 0 octet pour obtenir 96. Notez que le lien Try It Online contient 97 octets car il ne semble pas possible d'y saisir un caractère littéral 0.

#!/usr/bin/perl -plF
say;say$$l=~y/\0/ /runtil--$l,(s:\Q${\<>}:$$l|=v0 x((++$#$l%3*$l-$l+"@-")%@F).$&;v0:oreg^$$l)eq$_

Le surligneur de golf perl code pense #commencer un commentaire. Quelle naïveté 😈

Essayez-le en ligne!

Comment ça marche

$lest un compteur pour quelle ligne après la première nous sommes (il compte cependant, donc par exemple -3 pour 3 lignes en dessous de la chaîne du haut). Après avoir imprimé la chaîne initiale une fois, il fait à plusieurs reprises ce qui suit.

Recherchez dans la première chaîne les occurrences du caractère cible et calculez à quel décalage il doit apparaître: (++$#$l%3*$l-$l+"@-")%@Fquelle est la position actuelle plus le nombre de lignes (négatif) fois -1, 0, 1(cyclique). Construisez une chaîne avec ce nombre de fois \0suivi du caractère cible et orcela dans un accumulateur $$l(c'est-à-dire un accumulateur différent pour chacun $let la raison $ldécompte au lieu d'augmenter, car $1, $2etc. sont en lecture seule). Fait simultanément $#$lréférence à un tableau différent à chaque fois dans la boucle. Le résultat est la $le ligne mais avec \0au lieu d'espaces.

Les caractères cibles de la première chaîne sont remplacés par de \0sorte que vous vous retrouvez avec la chaîne d'origine avec des "trous" (avec \0) aux positions d'origine du caractère cible. Si vous xoravec l'accumulateur, les trous sont remplis si et seulement si l'accumulateur a les caractères cibles dans les positions d'origine, le résultat sera donc la chaîne d'origine. Cela est utilisé pour terminer la boucle. Si la boucle n'est pas terminée, imprimez l'accumulateur avec \0remplacé par l'espace.

Lorsque la boucle se termine, l' -poption imprime à nouveau la première chaîne et le programme est terminé.

Le personnage cible est capté d'une manière assez délicate. Le ${\<>}convertit une ligne lue depuis STDIN en une référence qui est ensuite immédiatement déréférencée et substituée dans l'expression régulière. Le \Qpréfixe échappe à tous les caractères spéciaux dans une expression régulière (comme .et *). Le \Eest implicite. Le omodificateur fait que la partie de recherche n'est plus jamais évaluée mais simplement répétée dans toutes les correspondances suivantes (ce qui est bien car il n'y a plus rien sur STDIN).

Python 2 , 199 193 191 191 octets

s,c=input()
print s;l=len(s);r=range;I=j=[i for i in r(l)if s[i]==c]
while 1:
 j=[(j[i]-i%3+1)%l for i in r(len(I))]
 if sorted(j)==I:print s;break
 print''.join((' '+c)[i in j]for i in r(l))

Essayez-le en ligne!

Si la boucle peut sortir via une exception:

Python 2 , 187 octets

s,c=input()
print s;l=len(s);r=range;I=j=[i for i in r(l)if s[i]==c]
while 1:
 j=[(j[i]-i%3+1)%l for i in r(len(I))]
 if sorted(j)==I:print s;q
 print''.join((' '+c)[i in j]for i in r(l))

Essayez-le en ligne!

• -4 octets grâce à Jonathan Frech
• -2 octets grâce à Lynn

C (gcc) , 261 octets

i,j,l,k;g(L,t,r,c)char**L;{L[r++][c]=k;c-=t?t-1?:0:-1;l<r||g(L,t,r,c<0?l-1:c%l);}f(S,K){char*s=S,*L[i=1+(l=strlen(s))];for(k=K;i--;)for(L[i]=calloc(j=l,1);j--;)L[i][j]=32;for(puts(s);s[++i];)s[i]-k||g(L,++j%3,0,i);for(i=1;strcmp(*L,L[i]);)puts(L[i++]);puts(s);}

Essayez-le en ligne!

JavaScript (Node.js) , 197 194 octets

s=>c=>{(C=console.log)(s);w=0;g=[];while(~(w=s.indexOf(c,w)))g.push(w++);h=(H=_=>g.map(x=>A[x]=c,A=Array(l=s.length).fill` `)&&A.join``)();while(h!=(y=H(g=g.map((x,i)=>(l-~x-i%3)%l))))C(y);C(s)}

Essayez-le en ligne!

Prend des entrées dans la syntaxe de curry, c.-à-d f(s)(c).

Pas parfait du tout, mais j'ai besoin de JS. Beaucoup de fonctions en fonction.

Rubis , 18917617115650150146144137 octets

->s,c,r=0..k=s.size,b=[p,s]{d=0;g=s.tr c,n=' '*k;l=r=r.map{|i|l||c==s[i]?(n[z=(i+1-d%3)%k]=g[z]=c;d+=1;z):p}-b;g==s||b<<n&&redo;puts b,s}

Essayez-le en ligne!

Gelée , 33 octets

3ḶNṁ+%⁹L¤‘
Ṅẹ©¥@ÇÇṢ⁻®ƊпṬị;⁶¥ṖY,Y

Essayez-le en ligne!

Appelez en fonction. (lien dyadique)

J'ai trouvé quelques 33 octets alternatives , mais pas d' amélioration réelle.