有一个临时改进的热身游戏，您可以将自己排列成一个圆圈，并通过指向一个人并说出序列中的下一个单词来发送拉链，快速键和快速键，然后他们进行相同的操作，直到所有人热身或随你。

您的任务是创建一个程序，该程序在给定输入单词的情况下按顺序给出下一个单词。（Zip-> Zap-> Zop-> Zip）由于可以使用多种不同的方式来表达这三个单词和风格，因此程序应模仿大小写和字母重复并带有后缀。

详细地说，您输入的内容将是一个或多个Zs，然后是一个或多个Is，As或Os（都相同的字母），然后是一个或多个Ps（到目前为止所有字母都可能是混合大小写），然后是一些任意的后缀（可能为空）。您应该完全保留Zs和Ps的行程以及后缀，但应将s 更改为Is，将As 更改A为Os，或将Os更改为Is，以保留大小写。

示例测试用例

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

规则和注意事项

• 您可以使用任何方便的字符编码进行输入和输出，前提是该字符编码支持所有ASCII字母并且是在此挑战之前创建的。
• 您可以假设输入单词是Zip，Zap或Zop的某种变体。所有其他输入都会导致未定义的行为。
  • 有效输入将完全匹配正则表达式Z+(I+|A+|O+)P+.*（混合使用）

高尔夫快乐！

JavaScript（Node.js）， 69 63 57  54字节

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

在线尝试！

怎么样？

我们按字符处理输入字符串$s$字符。

我们将$s$作为标志重用：一旦将数字值存储在其中，我们就知道我们不得更新任何其他内容。

为了识别"p"（112）和"P"（80），我们使用的事实，他们的ASCII码的倍数$4$，并在字符串的开头其他字母的ASCII码（"z"，"Z"和元音）都没有。

要将ASCII码为$c$的元音保留为$n$z并Z保持不变，我们使用以下函数：

 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'

已评论

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字节

@Grimy节省了2个字节

我的JS回答的端口。通过修改输入字符串进行输出。

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

在线尝试！

已评论

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 个字节

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

运行并调试

视网膜0.8.2，21字节

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

在线尝试！音译直到第一个字母（包括第一个字母）p，尽管z和p不在音译部分，因此不受影响。第一个O被引用是因为它通常扩展到13567，第二个o被引用是因为它也是魔术；在音译的第一部分中，它会扩展到另一个字符串。因此，产生的音译是从IAOIiaoi到，AOIiaoi然后删除重复的原始字母导致IAOiao到AOIaoi。

C，43个字节

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

在线尝试！

基于Arnauld的答案。我进行了蛮力搜索，找到了使a => o，o => i，i => a，z => z的最短公式。

Japt，22 20字节

-2字节感谢Oliver

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

在线尝试！

R，110 76字节

-36字节归功于Krill

此函数需要输入一个字符串。

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

在线尝试！

Perl 6的，41个 33字节

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

在线尝试！

简单的不区分大小写的替换来移动元音部分。

Python 3.8（预发布），81 78字节

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

在线尝试！

Python 2，98个字节

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

在线尝试！

Java（JDK），52字节

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

在线尝试！

• Grimy的C答案端口。请确保支持他的答案！

Perl 5，31个字节

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

蒂奥

SNOBOL4（CSNOBOL4），183字节

	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

在线尝试！

Python 2，84个字节

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

在线尝试！

C＃（Visual C＃交互式编译器），60字节

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

基于Grimy的C答案。

在线尝试！

C / C ++（VC ++编译器）192bytes

这是一个很幼稚的尝试，但无论如何

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

一些可读性更高的版本是这样的

#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;
}

Ruby，40个字节

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

在线尝试！

05AB1E（旧版），22 字节

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

在线尝试或验证所有测试用例。

绝对可以打更多的高尔夫球..

使用05AB1E的旧版本而不是Elixir重写，因为+合并了相同长度列表中的字段，而新版本则需要使用pair-zip-join‚øJ。

说明：

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个字节

对于TiO太简单：

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

与一起作为管道运行-nF。对于PHP 7.2，将字符串文字用引号引起来。