Kendinizi bir daireye yerleştirip, sırayla bir sonraki kelimeyi söyleyerek ve sırayla bir sonraki kelimeyi söyleyerek fermuar, zap ve zop gönderdiğiniz küçük bir ısınma oyunu var, o zaman hepiniz ısınana veya her neyse.

Göreviniz, bir sonraki sözcüğü bir giriş sözcüğü verilen sırada veren bir program oluşturmaktır. (Zip -> Zap -> Zop -> Zip) Kendilerine eklenebilecek bu üç kelimeyi ve heceyi söylemenin birçok farklı yolu olduğundan, programınız harf ve harf çoğaltmasını taklit etmeli ve sonekleri taşımalıdır.

Ayrıntılı olarak, girişiniz bir veya daha fazla Zs, sonra bir veya daha fazla Is, As veya Os (tümü aynı harf), sonra bir veya daha fazla Ps, (bu noktaya kadar olan tüm harfler karışık durumda olabilir) ve ardından bazı keyfi sonekler (boş olabilir). Sen silsileleri bırakmalısınız Zs ve Palınan tam olarak s yanı sıra son eki, ancak daha sonra değiştirmek Iiçin s A, s Aiçin s Os veya Ohiç sI her adımda durumda koruyarak, s.

Örnek Test Durumları

zip         ==> zap
zAp         ==> zOp
ZOP         ==> ZIP
ZiiP        ==> ZaaP
ZZaapp      ==> ZZoopp
zzzzOoOPppP ==> zzzzIiIPppP
Zipperoni   ==> Zapperoni
ZAPsky      ==> ZOPsky
ZoPtOn      ==> ZiPtOn
zipzip      ==> zapzip
zapzopzip   ==> zopzopzip
zoopzaap    ==> ziipzaap

Kurallar ve Notlar

• Tüm ASCII harflerini desteklemesi ve bu mücadeleden önce oluşturulmuş olması kaydıyla, giriş ve çıkış için uygun herhangi bir karakter kodlamasını kullanabilirsiniz.
• Giriş sözcüğünün bir miktar Zip, Zap veya Zop türevi olduğunu varsayabilirsiniz. Diğer tüm girdiler tanımsız davranışa neden olur.
  • Geçerli girdiler regex ile tam eşleşir Z+(I+|A+|O+)P+.*(karışık durumda)

Mutlu Golf!

JavaScript (Node.js) ,  69 63 57  54 bayt

s=>Buffer(s).map(c=>s|c%4<1?s=c:c+c*90%320%34%24-8)+''

Çevrimiçi deneyin!

Nasıl?

S giriş dizisini $s$ karakter karakter.

Biz yeniden $s$ bayrak olarak: sayısal bir değer içinde saklanır kısa sürede, biz başka bir şey güncellemek gerektiğini biliyoruz.

"p"(112) ve "P"(80) 'i tanımlamak için , ASCII kodlarının $4$ katları ve dize başında diğer harflerin ASCII kodları olduğu gerçeğini kullanırız ( "z","Z" ve ünlü harflerin) .

ASCII kodlu $c$ harfini, ayrılırken ve değiştirmeden eşdeğerine $n$ çevirmek için aşağıdaki işlevi kullanırız:zZ

 letter | ASCII code |  * 90 | % 320 | % 34 | % 24 | - 8 | new letter
--------+------------+-------+-------+------+------+-----+-----------------------
   'i'  |     105    |  9450 |  170  |   0  |   0  |  -8 | 105 -  8 =  97 -> 'a'
   'a'  |      97    |  8730 |   90  |  22  |  22  |  14 |  97 + 14 = 111 -> 'o'
   'o'  |     111    |  9990 |   70  |   2  |   2  |  -6 | 111 -  6 = 105 -> 'i'
   'z'  |     122    | 10980 |  100  |  32  |   8  |   0 | 122 +  0 = 122 -> 'z'
   'I'  |      73    |  6570 |  170  |   0  |   0  |  -8 |  73 -  8 =  65 -> 'A'
   'A'  |      65    |  5850 |   90  |  22  |  22  |  14 |  65 + 14 =  79 -> 'O'
   'O'  |      79    |  7110 |   70  |   2  |   2  |  -6 |  79 -  6 =  73 -> 'I'
   'Z'  |      90    |  8100 |  100  |  32  |   8  |   0 |  90 +  0 =  90 -> 'Z'

Yorumlananlar

s =>                  // s = input string
  Buffer(s)           // convert it to a Buffer of ASCII codes
  .map(c =>           // for each ASCII code c in s:
    s |               //   if s is numeric
    c % 4 < 1 ?       //   or c is either 'p' or 'P':
      s = c           //     turn s into a numeric value and yield c
    :                 //   else:
      c +             //     update c
        c * 90 % 320  //     by applying the transformation function
        % 34 % 24     //     (see above)
        - 8           //
  ) + ''              // end of map(); coerce the Buffer back to a string

C (gcc) ,  81 ... 61 48  46 bayt

@Grimy sayesinde 2 bayt kaydedildi

JS cevabımın limanı . Giriş dizesini değiştirerek çıktılar.

f(char*s){for(;*++s%4;*s+=*s*90%320%34%24-8);}

Çevrimiçi deneyin!

Yorumlananlar

f(char * s) {       // f = function taking the input string s
  for(;             //   for each character *s in s:
    *++s % 4;       //     advance the pointer; exit if *s is either 'p' or 'P' (it's safe 
                    //     to skip the 1st character, as it's guaranteed to be 'z' or 'Z')
    *s +=           //     update the current character:
      *s * 90 % 320 //       apply a transformation formula that turns
      % 34 % 24     //       a vowel into the next vowel in the sequence
      - 8           //       while leaving 'z' and 'Z' unchanged
  );                //   end of for()
}                   // end of function

Stax , 19 bayt

Ç╛√êΣ%,╖FP╚`=Lh←⌡·ƒ

Koş ve hata ayıkla

Retina 0.8.2 , 21 bayt

iT`Io`A\OIia\oi`^.+?p

Çevrimiçi deneyin! Ve ilk dahil olmak üzere çevirisi şu harfler p, her ne kadar zve pçevirisi bölümünde değildir bu yüzden etkilenmez. Birincisi O, normalde genişlediğinden 13567ve ikincisi ode büyü olduğu için alıntı yapılır; Harf çevirisinin ilk bölümünde diğer dizgiye genişler. Ortaya çıkan çevirisi dan nedenle IAOIiaoiiçin AOIiaoio yinelenen kaynak harfleri Sonuçlar kaldırılırken IAOiaoiçin AOIaoi.

C, 43 bayt

f(char*s){for(;*++s%4;*s^=*s%16*36%98%22);}

Çevrimiçi deneyin!

Arnauld'un cevabına dayanarak . A => o, o => i, i => a, z => z'ye dönüşen en kısa formülü bulmak için kaba kuvvet araması yaptım.

Japt , 22 20 bayt

Oliver sayesinde -2 bayt

r"%v+"_d`i¬iao¯`pu}"

Çevrimiçi deneyin!

R , 110 76 bayt

Krill sayesinde -36 bayt

Bu fonksiyon bir dize girdi alır.

function(a)sub(s<-sub('z+(.+?)p.*','\\1',a,T),chartr('aioAIO','oaiOAI',s),a)

Çevrimiçi deneyin!

Perl 6 , 41 33 bayt

{S:i{.+?p}=$/~~tr/iaoIAO/aoiAOI/}

Çevrimiçi deneyin!

Ünlü kısmı kaydırmak için basit, büyük / küçük harf duyarlı değiştirme.

Python 3.8 (yayın öncesi) , 81 78 bayt

lambda s,p='iaoIAO':''.join(('aoiAOI'+c)[(p:=p*(ord(c)%4)).find(c)]for c in s)

Çevrimiçi deneyin!

Python 2 , 98 bayt

lambda s:''.join(('aoiAOI'+c)[(-~-('p'in s[:i].lower())*'iaoIAO').find(c)]for i,c in enumerate(s))

Çevrimiçi deneyin!

Java (JDK) , 52 bayt

s->{for(int i=0;s[++i]%4>0;)s[i]^=s[i]%16*36%98%22;}

Çevrimiçi deneyin!

• Grimmy'nin C cevabı. Cevabını arttırdığınızdan emin olun!

Perl 5, 31 bayt

s/.+?p/$&=~y,iaoIAO,aoiAOI,r/ei

TIO

SNOBOL4 (CSNOBOL4) , 183 bayt

	INPUT (BREAK('Pp') SPAN('Pp')) . P REM . S
A	P 'a' ='o'	:S(A)
Z	P 'A' ='O'	:S(Z)F(P)
I	P 'i' ='a'	:S(I)
K	P 'I' ='A'	:S(K)F(P)
O	P 'o' ='i'	:S(O)
L	P 'O' ='I'	:S(L)
P	OUTPUT =P S
END

Çevrimiçi deneyin!

Python 2 , 84 bayt

f=lambda s,r='':s[0]in'pP'and r+s or f(s[1:],r+('aoiAOI'+s[0])['iaoIAO'.find(s[0])])

Çevrimiçi deneyin!

C # (Visual C # Etkileşimli Derleyici) , 60 bayt

n=>{for(int i=0;n[i]%4>0;)n[i]^=(char)(n[i++]%16*36%98%22);}

Grimy'nin C cevabından alınmıştır.

Çevrimiçi deneyin!

C / C ++ (VC ++ derleyicisi) 192 bayt

Bu oldukça saf bir deneme ama yine de

void f(char*I){int c[]={-8,14,6},B=1,v[]={105,97,111},j=0;for(*I;*I>0&B;I++){if(*I==80|*I==112){B=0;break;}if(*I==90|*I==122){}else{for(j;j<3;j++){if(*I==v[j]|*I==v[j]-32){*I+=c[j];break;}}}}}

biraz daha okunabilir sürüm bu

#include "stdafx.h"

void f(char * theString)
{
    signed int change[] = {'a'-'i','o'-'a','o'-'i'}; // add this to the vowel to get the next one
    char theVowels[] = {'i','a','o'};
    int breaker = 1;
    printf("Input %s\n",theString);
    for (int i = 0;(theString[i] != '\0') && breaker; i++)
    {
        switch (theString[i])
        {
            case 'Z': /*fall through*/
            case 'z': break;
            case 'P': /*fall through*/
            case 'p': breaker = 0;
                      break; 
            default: 
            {
                for (int j = 0; j < 3; j++)
                {
                    if ((theString[i] == theVowels[j]) || (theString[i]==(theVowels[j]-'a'+'A')))
                    {
                        theString[i] += change[j];
                        break;
                    }
                }
            }
            break;
        }

    }
    printf("Output %s\n",theString);
}
int main()
{
    char theString[]= "zzzzIIIIp0815-4711"; // a test string
    f(theString);
    return 0;
}

Yakut , 40 bayt

$_[$&]=$&.tr"IAOiao","AOIaoi"if/z+.+?p/i

Çevrimiçi deneyin!

05AB1E (eski) , 22 bayt

l'pkIg‚£ć…iaoDÀ‚Du+`‡ì

Çevrimiçi deneyin veya tüm test durumlarını doğrulayın .

Kesinlikle biraz daha golf oynayabilir miyim?

Elixir yeniden yazmak yerine 05AB1E'nin eski sürümünü kullanır, çünkü +aynı uzunluktaki listelerdeki alanları birleştirir, oysa yeni sürüm bir çift-zip- join'ya ihtiyaç duyar‚øJ bunun yerine .

Açıklama:

l                       # Lowercase the (implicit) input-string
                        #  i.e. "ZipPeroni" → "zipperoni"
 'pk                   '# Get the index of the first "p"
                        #  i.e. "zipperoni" → 2
    Ig‚                 # Pair it with the length of the entire input-string
                        #  i.e. 2 and "zipperoni" → [2,9]
       £                # Split the (implicit) input-string into parts of that size
                        #  i.e. "ZipPeroni" and [2,9] → ["Zi","pPeroni"]
        ć               # Extract head: push the head and remainder separately to the stack
                        #  i.e. ["Zi","pPeroni"] → ["pPeroni"] and "Zi"
         …iao           # Push string "iao"
             DÀ         # Duplicate, and rotate it once towards the left: "aoi"
               ‚        # Pair them up: ["iao","aoi"]
                Du      # Duplicate and transform it to uppercase: ["IAO","AOI"]
                  +     # Python-style merge them together: ["iaoIAO","aoiAOI"]
                   `    # Push both strings to the stack
                    ‡   # Transliterate; replacing all characters at the same indices
                        #  i.e. "Zi", "iaoIAO" and "aoiAOI" → "Za"
                     ì  # Prepend it to the remainder (and output implicitly)
                        #  i.e. ["pPeroni"] and "Za" → ["ZapPeroni"]

PHP, 30 bayt

Bir TiO için çok basit:

<?=strtr($argn,oiaOIA,iaoIAO);

İle boru olarak çalıştırın -nF. PHP 7.2 için, dize değişmezlerini tırnak içine alın.