ใครจำBoaty ?

คุณสามารถสร้างคำเก่า ๆ ได้ใช่ไหม?

• เขียนฟังก์ชั่นเพื่อเปลี่ยนสตริงเป็น Somethingy McSomethingface
• ควรยอมรับหนึ่งสตริงเป็นอินพุต ละเว้นกรณีของการป้อนข้อมูล
• หากคำลงท้ายด้วย 'y' ฟังก์ชั่นของคุณไม่ควรเพิ่ม 'y' เพิ่มเติมในอินสแตนซ์แรก แต่ควรลบออกในอินสแตนซ์ที่สอง
• หากคำลงท้ายด้วย 'ey' คำนั้นไม่ควรเพิ่ม 'y' เพิ่มเติมในอินสแตนซ์แรก แต่ควรลบทั้งสองในอินสแตนซ์ที่สอง
• ผลลัพธ์ควรมีตัวอักษรตัวพิมพ์ใหญ่ในอักขระตัวแรกคือ 'M' ของ 'Mc' และตัวอักษรตัวแรกหลัง 'Mc'
• มันจะต้องทำงานกับสายอักขระ 3 ตัวขึ้นไป

ตัวอย่าง:

boat                  =>  Boaty McBoatface
Face                  =>  Facey McFaceface
DOG                   =>  Dogy McDogface
Family                =>  Family McFamilface
Lady                  =>  Lady McLadface
Donkey                =>  Donkey McDonkface
Player                =>  Playery McPlayerface
yyy                   =>  Yyy McYyface
DJ Grand Master Flash =>  Dj grand master flashy McDj grand master flashface

Stax , 26 ไบต์

ëO╛εh╕⌠î&!}∞┌C^U╟«äδ◙Bg⌠└¿

เรียกใช้และแก้ไขข้อบกพร่อง

^           convert input to upper case                     "FACE"
B~          chop first character and push it back to input  70 "ACE"
v+          lowercase and concatenate                       "Face"
c'yb        copy, push "y", then copy both                  "Face" "Face" "y" "Face" "y"
:]          string ends with?                               "Face" "Face" "y" 0
T           trim this many character                        "Face" "Face" "y"
+           concatenate                                     "Face" "Facey"
p           output with no newline                          "Face"
"e?y$"z     push some strings                               "Face" "e?y$" ""
" Mc`Rface  execute string template; `R means regex replace " Mc Faceface"
            result is printed because string is unterminated

เรียกใช้อันนี้

V , 27 28 30ไบต์

Vu~Ùóe¿y$
Hóy$
ÁyJaMc<Esc>Aface

ลองออนไลน์!

<Esc> หมายถึง 0x1b

• เล่นกอล์ฟสองไบต์หลังจากเรียนรู้ว่าเราไม่จำเป็นต้องสนับสนุนอินพุตที่มีอักขระน้อยกว่า 3 ตัว

• บันทึก 1 ไบต์ต้องขอบคุณ @DJMcMayhem ด้วยการทำงานในบรรทัดที่สองก่อนหน้าบรรทัดแรกจึงทำการลบ G

อินพุตอยู่ในบัฟเฟอร์ โปรแกรมเริ่มต้นด้วยการแปลงทุกอย่างเป็นตัวพิมพ์เล็ก

Vเลือกเส้นและลดขนาดuมัน

~ สลับกรณีของอักขระตัวแรก (แปลงเป็นตัวพิมพ์ใหญ่)

และÙทำซ้ำบรรทัดนี้ด้านบนโดยปล่อยเคอร์เซอร์ไว้ที่บรรทัดล่างสุด

óและแทนที่e¿y$รูปแบบการบีบอัดของe\?y$(ตัวเลือกeและ a yที่ท้ายบรรทัด) โดยไม่มีสิ่งใด (เกิดขึ้นในบรรทัดที่สอง)

H ไปที่บรรทัดแรก

óแทนที่y$( yที่ส่วนท้ายของบรรทัด) โดยไม่มีอะไรในบรรทัดแรก

Áผนวก a yถึงท้ายบรรทัดแรก

J และรวมบรรทัดสุดท้ายกับบรรทัดแรกที่มีช่องว่างตรงกลางและเคอร์เซอร์จะถูกย้ายไปยังพื้นที่นี้

aผนวกMc( <Esc>กลับสู่โหมดปกติ)

Aในที่สุดผนวกfaceท้ายบรรทัด

Python ขนาด 144 ไบต์

def f(s):
 s=s[0].upper()+s[1:].lower()
 y=lambda s:s[:-1]if s[-1]=='y'else s
 t=y(s)
 u=s[:-2]if s[-2:]=='ey'else y(s)
 return t+'y Mc%sface'%u

ลองออนไลน์ได้ที่นี่

Excel, 204 144 137 165 ไบต์

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(REPT(REPLACE(LOWER(A1),1,1,UPPER(LEFT(A1)))&"~",2),"~","y Mc",1),"yy ","y "),"ey~","~"),"y~","~"),"~","face")

จากภายในสู่ภายนอก:

REPLACE(LOWER(A1),1,1,UPPER(LEFT(A1)))      Replaces PROPER to handle space-delimited cases
REPT(%&"~",2)                   Duplicate.                    Donkey~Donkey~
SUBSTITUTE(%,"~","y Mc",1)      Replace first ~.              Donkeyy McDonkey~
SUBSTITUTE(%,"yy ","y ")        Handle words ending in 'y'.   Donkey McDonkey~
SUBSTITUTE(%,"ey~","~")         Handle words ending in 'ey'   Donkey McDonk~
SUBSTITUTE(%,"y~","~")          Handle words ending in 'y'    Donkey McDonk~
SUBSTITUTE(%,"~","face")        Adding face.                  Donkey McDonkface

คำตอบเก่าสร้างบิตทั้งหมดแยกต่างหากจากนั้นต่อกัน (176 ไบต์) ไม่จัดการกรณีที่คั่นด้วยช่องว่างอย่างถูกต้อง

=PROPER(A1)&IF(LOWER(RIGHT(A1,1))="y",,"y")&" Mc"&IF(LOWER(RIGHT(A1,2))="ey",LEFT(PROPER(A1),LEN(A1)-2),IF(LOWER(RIGHT(A1,1))="y",LEFT(PROPER(A1),LEN(A1)-1),PROPER(A1)))&"face"

Perl 6 , 42 37 35 ไบต์

{S/y$//~"y Mc{S/e?y$//}face"}o&tclc

ลองออนไลน์!

C # (. NET Core) , 122 108 139 175 180 179 154 ไบต์

ขอบคุณมากเลย!

s=>((s.EndsWith("y")?s:s+"y")+" Mc"+(s+"$").Replace("ey$","")+"face").Replace(s,s.ToUpper()[0]+s.Substring(1).ToLower()).Replace("y$","").Replace("$","");

ลองออนไลน์!

C # (.NET Core พร้อม LINQ) 152 ไบต์

s=>((s.Last()=='y'?s:s+"y")+" Mc"+(s+"$").Replace("ey$","")+"face").Replace(s,s.ToUpper()[0]+s.Substring(1).ToLower()).Replace("y$","").Replace("$","");

ลองออนไลน์!

SOGL V0.12 , 38 ไบต์

lW y≠F
u⁽³:F y*+pF‽j:lW e=⌡j}"‰θ`√►׀‘p

ลองที่นี่!

Ruby , 61 49 ไบต์

->s{s.capitalize=~/(e)?y$|$/;"#$`#$1y Mc#$`face"}

ลองออนไลน์!

บันทึก 12 ไบต์หวานด้วย @MartinEnder:

• การแสดงออกปกติ slimmer ซึ่งใช้
• ตัวแปรพิเศษระดับโลกของRubyซึ่งฉันมักจะลืมและ
• การแก้ไขสตริงของวงเล็บปีกกา (ดูตัวอย่างเช่นhttps://codegolf.stackexchange.com/a/52357/11071 ) ซึ่งฉันไม่เคยรู้มาก่อน

Python 3 , 80 ไบต์

ผู้อ่านตัวยงมานานการส่งครั้งแรกของฉันในที่สุด

lambda y:re.sub("([\w ]+?)((e)?y)?$",r"\1\3y Mc\1face",y.capitalize())
import re

ลองออนไลน์

เรติน่า 29 ไบต์

.+
$T
0`(e)?y$|$
$1y Mc$`face

ลองออนไลน์!

Python 2 , 88 92 ไบต์

lambda s:(s+'y'*-~-(s[-1]in'yY')).title()+' Mc'+re.sub('e?y$','',s.title())+'face'
import re

ลองออนไลน์!

Java 8, 121 112 107 106 ไบต์

s->(s=(char)(s.charAt(0)&95)+s.toLowerCase().substring(1)).split("y$")[0]+"y Mc"+s.split("e?y$")[0]+"face"

-1 ขอบคุณไบต์@ OliverGrégoire

คำอธิบาย:

ลองออนไลน์

s->                         // Method with String as both parameter and return-type
  (s=                       //  Replace and return the input with:
     (char)(s.charAt(0)&95) //   The first character of the input as Uppercase
     +s.toLowerCase().substring(1))
                            //   + the rest as lowercase
  .split("y$")[0]           //  Remove single trailing "y" (if present)
  +"y Mc"                   //  Appended with "y Mc"
  +s.split("e?y$")[0]       //  Appended with the modified input, with "y" or "ey" removed
  +"face"                   //  Appended with "face"

JavaScript, 103 96 94 ไบต์

ค่อนข้างไร้เดียงสาผ่านครั้งแรกที่นี้

s=>(g=r=>s[0].toUpperCase()+s.slice(1).toLowerCase().split(r)[0])(/y$/)+`y Mc${g(/e?y$/)}face`

ลองออนไลน์

เป็นกลุ่ม, 35 34 ไบต์

Vu~Yp:s/ey$
:%s/y$
kgJiy Mc<ESC>Aface<ESC>

<ESC> คือ 0x1b

Ungolfed

Vu~                      # Caseify McCaseface
Yp                       # dup line
:s/ey$ 
:%s/y$                   # Get the suffixes right
kgJiy Mc<ESC>Aface<ESC>  # Join lines and add the extra chars

ลองออนไลน์!

บันทึก 1 ไบต์ขอบคุณ DJMcMayhem

Perl 5 -p , 47 39 ไบต์

บันทึกแล้ว 6 ไบต์ด้วยคำแนะนำของ @ OlegV.Volkov, 1 กับ @ mwellnhof's และอีก 1 คนเป็นของฉันเอง

$_=lc^$";$_=s/y?$/y Mc/r.s/e?y$//r.face

ลองออนไลน์!

C ++ 14 (g ++), 181 171 148 147 134 ไบต์

[](auto s){s[0]&=95;int i=1,b;for(;s[i];)s[i++]|=32;b=s[--i]-'y';return s+(b?"y":"")+" Mc"+(b?s:s.substr(0,s[i-1]-'e'?i:i-1))+"face";}

โปรดทราบว่าเสียงดังกราวจะไม่รวบรวมสิ่งนี้

เครดิตไปที่เควิน CruijssenและโอลิเวียGrégoireสำหรับ&95เคล็ดลับ

ขอบคุณChrisสำหรับการเล่นกอล์ฟ 11 ไบต์

ลองออนไลน์ได้ที่นี่

เวอร์ชันที่ไม่ถูกปรับแต่ง:

[] (auto s) { // lambda taking an std::string as argument and returning an std::string
    s[0] &= 95; // convert the first character to upper case
    int i = 1, // for iterating over the string
    b; // we'll need this later
    for(; s[i] ;) // iterate over the rest of the string
        s[i++] |= 32; // converting it to lower case
    // i is now s.length()
    b = s[--i] - 'y'; // whether the last character is not a 'y'
    // i is now s.length()-1
    return s + (b ? "y" : "") // append 'y' if not already present
    + " Mc"
    + (b ? s : s.substr(0, s[i-1] - 'e' ? i : i-1)) // remove one, two, or zero chars from the end depending on b and whether the second to last character is 'e'
    + "face";
}

V , 38 36 32 ไบต์

-5 ไบต์ขอบคุณ @Cack นักต้มตุ๋น

Vu~hy$ó[^y]$/&y
A Mc<esc>póe¿y$
Aface

<esc>เป็นตัวอักษรหลบหนีตามตัวอักษรและ[^ถูกเข้ารหัสเป็น\x84

ลองออนไลน์!

05AB1E , 30 ไบต์

™D'y©Ü®«s¤®Qi¨¤'eQi¨]’McÿŠÑ’ðý

ลองออนไลน์! หรือเป็นชุดทดสอบ

Python 3 , 117 114 ไบต์

-3 ไบต์ขอบคุณ Dead Possum

def f(s):s=s.title();return s+'y'*(s[-1]!='y')+' Mc'+([s,s[:-1],0,s[:-2]][(s[-1]=='y')+((s[-2:]=='ey')*2)])+'face'

ลองออนไลน์!

JavaScript (Node.js) , 87 ไบต์

• ขอบคุณ @Shaggy สำหรับการลด 5 ไบต์

s=>(g=r=>Buffer(s.replace(r,"")).map((x,i)=>i?x|32:x&~32))(/y$/)+`y Mc${g(/e?y$/)}face`

ลองออนไลน์!

K4 , 74 69 68 ไบต์

วิธีการแก้:

{$[r;x;x,"y"]," Mc",_[r:0&1-2/:"ye"=2#|x;x:@[_x;0;.q.upper]],"face"}

ตัวอย่าง:

q)k)f:{$[r;x;x,"y"]," Mc",_[r:0&1-2/:"ye"=2#|x;x:@[_x;0;.q.upper]],"face"}
q)f each ("boat";"Face";"DOG";"Family";"Lady";"Donkey";"Player")
"Boaty McBoatface"
"Facey McFaceface"
"Dogy McDogface"
"Family McFamilface"
"Lady McLadface"
"Donkey McDonkface"
"Playery McPlayerface"

คำอธิบาย:

คิดออกว่าตัวอักษรตัวสุดท้ายมีค่าเท่ากับ"ey", แปลงผลลัพธ์เป็นฐาน 2 เพื่อให้เราสามารถละเว้นคำที่ลงท้าย"e?"เพื่อให้เราสามารถละเว้นคำว่าสิ้น จัดทำดัชนีในรายการจำนวนอักขระที่ต้องการตัดแต่ง

จัดการเพื่อลบรหัสของฉัน 5 ไบต์เพื่อตรวจสอบว่าตัวอักษรสองตัวสุดท้ายที่"ey"แต่พยายามที่จะดีกว่า ...

{$[r;x;x,"y"]," Mc",_[r:0&1-2/:"ye"=2#|x;x:@[_x;0;.q.upper]],"face"} / the solution
{                                                                  } / lambda function
                                                            ,"face"  / join with "face"
                    _[                  ;                  ]         / cut function
                                           @[_x; ;        ]          / apply (@) to lowercased input
                                                0                    / at index 0
                                                  .q.upper           / uppercase function
                                         x:                          / save back into x
                                      |x                             / reverse x
                                    2#                               / take first two chars of x
                               "ye"=                                 / equal to "ye"?
                             2/:                                     / convert to base 2
                           1-                                        / subtract from 1
                         0&                                          / and with 0 (take min)
                       r:                                            / save as r
             ," Mc",                                                 / join with " Mc"
 $[r;x;x,"y"]                                                        / join with x (add "y" if required)

โบนัส:

พอร์ต67 ไบต์ในK (oK) :

{$[r;x;x,"y"]," Mc",((r:0&1-2/"ye"=2#|x)_x:@[_x;0;`c$-32+]),"face"}

ลองออนไลน์!

Ruby , 69 ไบต์

->s{"#{(s.capitalize!||s)[-1]==?y?s:s+?y} Mc#{s.gsub /e?y$/,""}face"}

คำอธิบาย:

->s{                                                                } # lambda 
    "#{                                 } Mc#{                }face" # string interpolation
       (s.capitalize!||s) # returns string capitalized or nil, in that case just use the original string
                         [-1]==?y # if the last character == character literal for y
                                 ?s:s+?y # then s, else s + "y"
                                              s.gsub /e?y$/,"" # global substitute
                                                               # remove "ey" from end

ลองออนไลน์!

Jstx , 27 ไบต์

h</►yT↓►y/◙♂ Mc♀/◄eyg►yg/íå

คำอธิบาย

      # Command line args are automatically loaded onto the stack
h     # Title case the top of the stack
<     # Duplicate the top value on the stack twice
/     # Print the top value on the stack
►y    # Load 'y' onto the stack
T     # Returns true if the 2nd element on the stack ends with the top
↓     # Execute block if the top of the stack is false
  ►y  # Load 'y' onto the stack
  /   # Print the top value on the stack
◙     # End the conditional block
♂ Mc♀ # Load ' Mc' onto the stack
/     # Print the top value on the stack
◄ey   # Load 'ey' onto the stack
g     # Delete the top of the stack from the end of the 2nd element on the stack if it exists
►y    # Load 'y' onto the stack
g     # Delete the top of the stack from the end of the 2nd element on the stack if it exists
/     # Print the top of the stack
íå    # Load 'face' onto the stack
      # Print with newline is implied as the program exits

ลองออนไลน์!

สีแดง , 143 142 ไบต์

func[s][s: lowercase s s/1: uppercase s/1
w: copy s if"y"<> last s[append w"y"]rejoin[w" Mc"parse s[collect keep to[opt["y"|"ey"]end]]"face"]]

ลองออนไลน์!

Ungolfed:

f: func[s][
   s: lowercase s                      ; make the entire string lowercase
   s/1: uppercase s/1                  ; raise only its first symbol to uppercase 
   w: copy s                           ; save a copy of it to w
   if "y" <> last s[append w "y"]     ; append 'y' to w if it doesn't have one at its end
   rejoin[w                            ; assemble the result by joining:
          " Mc"
          ; keep the string until "y", "ey" or its end
          parse s[collect keep to [opt ["y" | "ey"] end]]
          "face"
    ]
]

PHP: 132

<?php function f($s){$s=ucfirst(strtolower($s));return $s.(substr($s,-1)=='y'?'':'y').' Mc'.preg_replace('/(ey|y)$/','',$s).'face';}

คำอธิบาย:

<?php

function f($s)
{
    // Take the string, make it all lowercase, then make the first character uppercase
    $s = ucfirst(strtolower($s));

    // Return the string, followed by a 'y' if not already at the end, then ' Mc'
    // and the string again (this time, removing 'y' or 'ey' at the end), then
    // finally tacking on 'face'.
    return $s
        . (substr($s, -1) == 'y' ? '' : 'y')
        . ' Mc'
        . preg_replace('/(ey|y)$/', '', $s)
        . 'face';
}

เยลลี่ , 77 75 74 73 ไบต์

2ḶNṫ@€⁼"“y“ey”S
ØA;"ØaF
¢y⁸µ¢Uyµ1¦
Çṫ0n”yẋ@”y;@Ç;“ Mc”
⁸JU>ÑTị3Ŀ;@Ç;“face

ลองออนไลน์!

คำแนะนำการเล่นกอล์ฟใด ๆ ยินดีต้อนรับ (และต้องการ)!

Pyth, 36 34 ไบต์

++Jrz4*\yqJK:J"e?y$"k+" Mc"+K"face

ลองออนไลน์!

คำอธิบาย:

++Jrz4*\yqJK:J"(e)?y$"k+" Mc"+K"face

  Jrz4                                  Set J to the titlecase of z (input)
           K:J"e?y$"k                   Set K to (replace all matches of the regex e?y$ in J with k (empty string))
         qJ                             Compare if equal to J
      *\y                               Multiply by "y" (if True, aka if no matches, this gives "y", else it gives "")
 +                                      Concatenate (with J)
                             +K"face    Concatenate K with "face"
                       +" Mc"           Concatenate " Mc" with that
+                                       Concatenate

Elixir , 112 110 107 106 ไบต์

ตอนนี้สั้นเป็นจาวา

fn x->x=String.capitalize x;"#{x<>if x=~~r/y$/,do: "",else: "y"} Mc#{String.replace x,~r/e?y$/,""}face"end

ลองออนไลน์!

คำอธิบาย:

x=String.capitalize x

รับxพร้อมกับอักขระตัวแรกเป็นตัวพิมพ์ใหญ่และอื่น ๆ ทั้งหมดเป็นตัวพิมพ์เล็ก

#{ code }

ประเมินรหัสและแทรกลงในสตริง

#{x<>if x=~ ~r/y$/, do: "", else: "y"}

เชื่อมx เข้าด้วยกันyหากไม่ได้ลงท้ายด้วยy(เช่นไม่ตรงกับ regex y$)

#{String.replace x, ~r/e?y$/, "")}

ลบต่อท้ายและท้ายeyy

PHP , 45 46ไบต์

<?=($s=ucfirst(fgets(STDIN)))."y Mc{$s}face";

ลองออนไลน์!

Pyth, 60 59 ไบต์^SBCS

K"ey"Jrz4Iq>2JK=<2J=kK.?=k\yIqeJk=<1J))%." s÷   WZÞàQ"[JkJ

ชุดทดสอบ

พวกเขาไม่ได้แสดงที่นี่ แต่สามไบต์\x9c, \x82และ\x8cอยู่ในระหว่างสตริงบรรจุและs ÷มั่นใจได้ว่าลิงค์จะรวมไว้

K="ey"
J=input().capitalize()
if J[-2:]==K:
    J=J[:-2]
    k=K
else:
    k="y"
    if J[-1]==k:
        J=J[:-1]
print("{}{} Mc{}face".format(J,k,J))