Thử thách :

Cho một chuỗi phân chia tại các vị trí cụ thể và viết hoa ký tự đầu tiên của từ đã cho. Viết hoa chữ cái đầu tiên của từ đầu tiên khi và chỉ khi nó đã được viết hoa

Đầu vào :

Một chuỗi svà một nhân vật c.

Ouput:

Chuỗi với mỗi lần xuất hiện được cthay thế bằng ký tự char đầu tiên

Ví dụ:

STRING(s)             CHARACTER(c)  RESULT
Hello_world           _             HelloWorld
me,no,like            ,             meNoLike
you-got-it            -             youGotIt
Am^I^clear            ^             AmIClear
go!full!caps          !             goFullCaps
weird&but&tRue        &             weirdButTRue
ProbleM1fixed1no      1             ProbleMFixedNo
!prob!!lem!s!Olved!!  !             ProbLemSOlved

Ghi chú :

• Cho đầu vào sẽ luôn luôn hợp lệ. tức là: Đầu tiên sẽ luôn là một chuỗi có ít nhất một thể hiện của ký tự để thay thế tại. Thứ hai sẽ luôn là một nhân vật duy nhất.
• Độ dài của chuỗi đầu vào sẽ lớn hơn 4.

• Sẽ có ít nhất một lần xuất hiện của nhân vật để phân chia tại.

• Đầu vào được đảm bảo chỉ chứa các chữ cái và dấu phân cách (Cảm ơn @Arnauld)

• Dấu phân cách là bất cứ thứ gì không phải là bảng chữ cái (az / AZ) (được đề xuất bởi @Dennis)

Tiêu chí chiến thắng:

Đây là mã golf để mã ngắn nhất tính theo byte cho mỗi ngôn ngữ sẽ thắng.

1. Cảm ơn @JonathanAllan vì đã chỉ ra hai sai lầm.

Python 3 , 63 byte

lambda s,c:''.join(map(min,s,s[0]+s.title()[1:])).replace(c,'')

Hãy thử trực tuyến!

C (gcc) , 61 53 55 byte

-8 byte nhờ Dennis!

f(s,c)char*s;{for(;*s;putchar(*s++))if(*s==c)*++s&=95;}

Hãy thử trực tuyến!

JavaScript (ES6), 58 56 byte

Đã lưu 2 byte nhờ @ l4m2 / @Downgoat

Đưa đầu vào theo cú pháp currying (s)(c).

s=>c=>s.replace(u=/./g,x=>u=x==c?'':u?x:x.toUpperCase())

Hãy thử trực tuyến!

Đã bình luận

s => c =>                  // given s and c
  s.replace(u = /./g, x => // initialize u to a RegExp; replace each character x in s with,
    u =                    // and update u to:
      x == c ?             //   if x is the separator:
        ''                 //     an empty string
      :                    //   else:
        u ?                //     if u is not an empty string:
          x                //       x unchanged
        :                  //     else:
          x.toUpperCase()  //       x capitalized
  )                        // end of replace()

Perl 6 -p , 19 byte

s:g[<:!L>(.)]=$0.uc

Hãy thử trực tuyến!

sed 4.2.2 (-r), 21

s/[^a-z]+(.)?/\u\1/gi

Tôi đã thử \Wthay thế [^a-z], nhưng tiếc là điều đó không phù hợp _.

Hãy thử trực tuyến!

Thạch , 8 byte

Œt⁸1¦«⁸ḟ

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

Œt⁸1¦«⁸ḟ  Main link. Left argument: s (string). Right argument: c (character).

Œt        Title case; capitalize the first character of each word.
  ⁸1¦     Replace the first character of the result with the first character of s.
     «⁸   Take the character-wise minimum of the result and s.
          Note that uppercase letters have lower code points than lowercase ones.
       ḟ  Filterfalse; remove all occurrences of c.

Octave , 83 , 66 , 64 byte

Đã lưu 2 byte nhờ Luis Mendo. upperthay vì toupper.

@(s,c,k=upper(s(i=find(s==c)+1)))[strsplit({s(i)=k,s}{2},c){:}];

Hãy thử trực tuyến!

Ồ, đó có lẽ là đoạn mã Octave lộn xộn nhất tôi từng viết! Điều này sử dụng hai trong số các thủ thuật được đăng trong câu hỏi mẹo này , cụ thể là danh sách Đối số và mảng ô.

Giải trình:

Danh sách đối số đầu vào:

@(s,c,k        % An anonymous function that may take three input variables, s, c, k
               % where the third argument has the default value:
 k=upper(s(i=find(s==c)+1))

kĐây là ký tự đầu tiên ssau mỗi dấu phân cách c, được chuyển thành chữ hoa. Chỉ mục của mỗi ký tự viết hoa được lưu trữ trong i.

Cơ thể mảng di động:

Chúng tôi tạo ra một mảng ô có hai phần tử, một là chúng tôi nói rằng tất cả các ký tự thứ i nên được thay thế bằng đối tác của nó kvà một phần tử khác s, hiện đã được cập nhật. Chúng tôi lập chỉ mục này bằng cách sử dụng {2}để chúng tôi chỉ lấy lại toàn bộ chuỗi đã sửa đổi. Cái này được cho ănstrsplit , phân tách nó thành các ô ở ký tự phân cách. Chúng tôi chuyển đổi nó thành một danh sách được phân tách bằng dấu phẩy bằng cách sử dụng {:}và nối nó lại thành một chuỗi bằng dấu ngoặc vuông [].

Xin lỗi nếu điều đó không có ý nghĩa gì với bạn ... Nó hầu như không có ý nghĩa với tôi: P

Võng mạc 0.8.2 , 20 byte

T`lLp`LL_`[\W\d_]+.?

Hãy thử trực tuyến! Chỉ lấy chuỗi, dấu phân cách tùy chọn. Tất cả các ký tự không phải là chữ cái đều bị xóa nhưng bất kỳ ký tự chữ cái nào sau đây đều được ghi đè. Phiên bản 34 byte trước được chấp nhận đầu vào tùy ý:

T`l`L`(?=.*(.)$)\1+.
(?=.*(.)$)\1

Hãy thử trực tuyến! Liên kết bao gồm bộ kiểm tra. Giả sử đầu vào bao gồm chuỗi và ký tự được nối với nhau. Giải thích: Giai đoạn đầu tiên chuyển ngữ tất cả các ký tự ngay sau lần xuất hiện của ký tự kết thúc từ chữ thường sang chữ hoa và giai đoạn thứ hai sau đó xóa tất cả các lần xuất hiện của ký tự kết thúc.

Đối với cả hai giải pháp, sử dụng khớp từ phải sang trái thay vì +cũng hoạt động.

APL (Dyalog Classic) , 22 byte

{⍵~⍨1(819⌶@(⍵=¯1⌽⊢))⍺}

Hãy thử trực tuyến!

Röda , 57 54 byte

-3 byte nhờ vào quẻ bò

{(_/`\Q$_`)|{pull;[upperCase(_[:1]),_1[1:]]if[#_1>0]}}

Hãy thử trực tuyến!

Giải trình:

{
  (_/`\Q$_`)| /* Pull two strings and split the first with the second */
  {
    pull;                /* Pull one string and print it */
                         /* For each string _1 in the stream: */
                         /*   If _1 is not empty: */
    [                    /*     Print: */
      upperCase(_[:1]),  /*       The first character capitalized */
      _1[1:]             /*       The rest of characters */
    ]if[#_1>0]           /*   End if */
  }
}

V , 6 7 byte

Lưu 1 byte bằng cách không sử dụng đối số

ÓÁˆ/õ±

Hãy thử trực tuyến!

Chương trình lấy văn bản làm đầu vào và char làm đối số.

Hexdump:

00000000: d3c1 882f f5b1                           .../..

Đây là một sự thay thế đơn giản. Không nén, có vẻ như sau

:s/\A(.)/\u\1/g

Thực hiện thay thế toàn cầu trong đó \A, một ký tự không phải là chữ cái, theo sau là một ký tự (.)được thay thế bằng \unhóm chụp đầu tiên được đặt trước\1

Scala, 83 byte

def f(s:String)={val w=s.split("[^a-zA-Z]");w(0)+w.tail.map(_.capitalize).mkString}

Hãy thử trực tuyến!

Giải trình:

def f(s: String) = {                        // takes a String "s" as input
  val w = s.split("[^a-zA-Z]");             // split on non-alpha chars
  w(0) + w.tail.map(_.capitalize).mkString  // upper case first letter of all words except first one and join array into a String
}                                           //

Đỏ , 87 byte

func[s c][b: split s c prin b/1 foreach w next b[if w <>""[w/1: uppercase w/1 prin w]]]

Hãy thử trực tuyến!

05AB1E , 9 byte

¡ćsvyćusJ

Hãy thử trực tuyến!

Giải trình

¡           # split the string on the char
 ć          # extract the head of the resulting list
  s         # swap the head to the bottom of the stack
   vy       # for each string y in the rest of the list
     ću     # extract the head and capitalize it
       s    # swap it below the rest of the string
        J   # join everything to one string

PHP, 91 83 byte

$a=explode($argv[2],$argv[1]);echo array_shift($a);foreach($a as$i)echo ucfirst($i);

Chạy với -r . Đã ngắn hơn 2 byte khi sử dụng split thay vì explode, nhưng ^ test thất bại do regex.

-8 cảm ơn Med

Groovy, 43 byte, 45 byte

s.replaceAll(/\$c(.)/){it[1].toUpperCase()}

Hãy thử trực tuyến . Bộ kiểm tra bao gồm không bao gồm mục cuối cùng vì nó thiếu char phân cách c.

Đi, 138 92 87 byte

Giảm 46 byte nhờ ý tưởng trường hợp tiêu đề của @Dennis .

func f(s,d string){p:=Split(s,d);Print(p[0]+Replace(Title(Join(p[1:]," "))," ","",-1))}

Hãy thử trực tuyến!

Husk , 10 byte

ΣΓ·:mΓo:ax

Hãy thử trực tuyến!

Giải trình

ΣΓ·:mΓ(:a)x  -- example inputs: 'x' "abxbcxcdxdex"
          x  -- split on character: ["ab","bc","cd","de"]
 Γ           -- pattern match (x = head) (xs = tail) and do..
  ·:         -- | construct list (x:xs) but with the second argument do..
    m        -- | | map (eg. "bc")
     Γ(  )   -- | | | pattern match on first character
      ( a)   -- | | | | upper-case it
      (: )   -- | | | | and join again
             -- | | | : "Bc"
             -- | | : ["Bc","Cd","De"]
             -- : ["ab","Bc","Cd","De"]
Σ            -- concatenate: "abBcCdDe"

F # (Mono) , 122 byte

let f(s:string)c=s|>Seq.mapi(fun i x->if i>0&&s.[i-1]=c then Char.ToUpper(x)else x)|>Seq.where((<>)c)|>Seq.toArray|>String

Hãy thử trực tuyến!

Java 10, 141 byte

s->c->{var r=s.split("\\"+c);var r=a[0],t;for(int i=0;++i<a.length;r+=t.isEmpty()?"":(char)(t.charAt(0)&~32)+t.substring(1))t=a[i];return r;}

Hãy thử trực tuyến.

Giải trình:

s->c->{                    // Method with String and character parameters and String return-type
  var r=s.split("\\"+c);   //  Split String by character (with potential regex char)
  var r=a[0],              //  Result-String, starting at the first item
      t;                   //  Temp-String to reduce bytes
  for(int i=0;++i<a.length;//  Loop in the range [1, length_of_array)
      r+=                  //    After every iteration: append the result-String with:
         t.isEmpty()?      //     If the current item empty:
          ""               //      Append nothing
         :                 //     Else:
          (char)(t.charAt(0)&~32)
                           //      Capitalize the first character
          +t.substring(1)) //     And append the other characters as is
    t=a[i];                //   Set `t` to the current String-item of the array
  return r;}               //  Return the result-String

R , 87 byte

g<-function(s,x,z=strsplit(s,x,T)[[1]])cat(z[1],capwords(z[-1]),sep="")
example(chartr)

Hãy thử trực tuyến!

Sử dụng thủ thuật này không thể được thực thi đúng trong TIO nên tôi đã mô phỏng nó.

Chúng tôi cần Tmột trong những trường hợp thử nghiệm thất bại.

Stax , 11 byte

óKo{cplòüö\

Chạy và gỡ lỗi nó

Giải trình

/BsF1:/s^s|dl                 # Full Program, unpacked, Implicit Input
/                             # Split on substrings (Split input with symbol to split on)
 B                            # Remove first element from array. Push the tail of the array, then the removed element.
  s                           # Swap first two elements of stack
   F                          # Start for loop
    1:/                       # Split array at index; push both parts.
       s^s                    # Swap first two elements of stack, capitalize character, swap first two elements 
         |dl                  # Get length of stack, listify that amount (entire stack), implicit output of array

Có một vài phần tôi thực sự muốn sửa chữa bằng cách nào đó. Tôi có thể giảm xuống còn khoảng 8 byte, nhưng nó đã thất bại trong trường hợp thử nghiệm cuối cùng>. <

Ruby -pl , 36 byte

$_.gsub!(/[^a-z]+(.|$)/i){$1.upcase}

Hãy thử trực tuyến!

Chỉ có chuỗi mà không có đối số thứ hai. Sử dụng phiên bản khối của gsub!phương thức vì với gsub! x,ycú pháp chung $1không dễ dàng điền vào dữ liệu khớp. |$trong regex là cần thiết cho trường hợp thử nghiệm với dấu phân cách cuối cùng.

Python 3 , 77 byte

o=[]
for x in s.split(c): o.append(chr(ord(x[0])-32)+x[1:])
print(''.join(o))

Hãy thử trực tuyến!

Điều này giả định rằng chuỗi được mã hóa ASCII và giả định rằng svà clà các biến được tải sẵn có chứa đầu vào.

for x in s.split(x)       #loop through items in the string s split by x
    o.append(             #add the following to c
        chr(              #turn the following number into a character
            ord(          #turn the following character into a number
                x[0]      #the first character in string x
            )-32          #subtract 32 from this number
        +x[1:]            #add everything past and including the second character in string x

Giải pháp này hoạt động dựa trên thực tế là trong mã hóa ASCII, các chữ cái viết thường được định vị 32 mục sau các chữ cái viết hoa

Chỉnh sửa: tôi chỉ nhận ra rằng điều này cũng viết hoa ký tự đầu tiên trong chuỗi, điều này không nên. nhưng tôi khá tự hào về sự vô nghĩa của mình, vì vậy tôi sẽ bỏ qua chuyện này nếu điều đó được cho phép