Виклик:

Дано розділити рядок на конкретні позиції та використовувати великі літери першого слова цього слова. Використовуйте великі літери першого слова, якщо і лише тоді, коли воно вже було написано з великої літери

Вхід:

Рядок s і символ c.

Вихід:

Рядок із кожним виникненням c замінюється першим символом з великої літери

Приклади:

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

Примітка :

• Даний вклад завжди буде дійсним. тобто: Першим завжди буде рядок із щонайменше одним екземпляром символу, який слід замінити на. Другий завжди буде одним персонажем.
• Довжина вхідного рядка буде більше 4.

• Буде хоча б одне явище, коли персонаж розбивається на.

• Гарантія містить лише букви та роздільник (спасибі @Arnauld)

• Сепаратор - це все, що не є алфавітом (az / AZ) (запропоновано @Dennis)

Критерії виграшу:

Це код-гольф, тому найкоротший код у байтах для кожної мови виграє.

1. Дякуємо @JonathanAllan за вказівку на дві помилки.

Python 3 , 63 байти

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

Спробуйте в Інтернеті!

C (gcc) , 61 53 55 байт

-8 байт завдяки Деннісу!

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

Спробуйте в Інтернеті!

JavaScript (ES6), 58 56 байт

Збережено 2 байти завдяки @ l4m2 / @Downgoat

Здійснює введення в синтаксис currying (s)(c).

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

Спробуйте в Інтернеті!

Прокоментував

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 байт

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

Спробуйте в Інтернеті!

sed 4.2.2 (-r), 21

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

Я намагався \Wзамість цього [^a-z], але, на жаль, це не відповідає _.

Спробуйте в Інтернеті!

Желе , 8 байт

Œt⁸1¦«⁸ḟ

Спробуйте в Інтернеті!

Як це працює

Œ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.

Октава , 83 , 66 , 64 байти

Збережено 2 байти завдяки Луїсу Мендо. upperзамість toupper.

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

Спробуйте в Інтернеті!

Нічого собі, це, мабуть, найгаласніший фрагмент коду Octave, який я коли-небудь писав! Тут використовуються два викладені в цьому трюки питанні щодо підказок, а саме список аргументів та масиви комірок.

Пояснення:

Введення списку аргументів:

@(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тут перший символ sпісля кожного роздільника c, перетвореного у верхній регістр. Індекс кожного великого символу зберігається в i.

Тіло масиву клітин:

Ми створюємо масив комірок з двома елементами, один з яких ми говорили, що всі i-й символи повинні бути замінені його аналогом у k, а другий з s, який зараз уже оновлений. Індексуємо це, використовуючи {2}так, щоб ми повернули лише весь, модифікований рядок. Цьому подається strsplit, що розбиває його на комірки за символом сепаратора. Ми перетворюємо його у відокремлений комою список за допомогою {:}та об'єднуємо його назад у рядок за допомогою квадратних дужок[] .

Вибачте, якщо це не мало для вас сенсу ... Це для мене ледь не має сенсу: P

Сітківка 0,8,2 , 20 байт

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

Спробуйте в Інтернеті! Бере лише рядок, роздільник необов'язковий. Усі не алфавітні символи видаляються, але будь-який наступний алфавітний символ є великим. Попередня 34-байтова версія прийняла довільний ввід:

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

Спробуйте в Інтернеті! Посилання включає тестовий набір. Припустимо, що вхід складається з рядка та символів, з'єднаних разом. Пояснення: Перший етап транслітерує всі символи відразу після появи кінцевого символу від нижнього до верхнього регістру, а другий етап видаляє всі входження символу кінця.

Для обох рішень використання поєднання справа наліво замість +також працює.

APL (Dyalog Classic) , 22 байти

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

Спробуйте в Інтернеті!

Рода , 57 54 байти

-3 байти завдяки кряканню корів

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

Спробуйте в Інтернеті!

Пояснення:

{
  (_/`\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 байт

1 байт збережено, не використовуючи аргумент

ÓÁˆ/õ±

Спробуйте в Інтернеті!

Програма приймає текст як введення, а графік як аргумент.

Hexdump:

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

Це проста підміна. Не стиснений, це виглядає наступним чином

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

Виконайте глобальну заміну, при якій \Aнеалфавітний символ з подальшим символом (.)замінюється на верхній регістр \uпершої групи захоплення\1

Скала, 83 байти

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

Спробуйте в Інтернеті!

Пояснення:

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 байт

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

Спробуйте в Інтернеті!

05AB1E , 9 байт

¡ćsvyćusJ

Спробуйте в Інтернеті!

Пояснення

¡           # 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 байт

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

Бігайте з -r. Був на 2 байти коротшим, використовуючи спліт замість вибуху, але ^ тест не вдається через регулярне вираження.

-8 завдяки Мед

Groovy, 43 байт, 45 байт

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

Спробуйте в Інтернеті . Тестовий набір включений, виключаючи останній елемент, оскільки в ньому відсутня роздільна таблиця c.

Ідіть, 138 92 87 байт

Упав 46 байт завдяки ідеї заголовка справи @Dennis .

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

Спробуйте в Інтернеті!

Лушпиння , 10 байт

ΣΓ·:mΓo:ax

Спробуйте в Інтернеті!

Пояснення

ΣΓ·: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 # (моно) , 122 байти

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

Спробуйте в Інтернеті!

Java 10, 141 байт

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

Спробуйте в Інтернеті.

Пояснення:

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 байт

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

Спробуйте в Інтернеті!

Використання цього трюку неможливо виконати належним чином у TIO, тому я його моделював.

Нам потрібно, Tінакше один із тестових випадків не вдасться.

Стакс , 11 байт

óKo{cplòüö\

Запустіть і налагоджуйте його

Пояснення

/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

Є кілька частин, які я б хотів якось виправити. Я можу зменшити його до приблизно 8 байт, але це не вдається в останньому тестовому випадку>. <

Рубін -pl , 36 байт

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

Спробуйте в Інтернеті!

Бере лише рядок без другого аргументу. Використовує блок-версію gsub!методу, оскільки загальний gsub! x,yсинтаксис $1не заповнюється даними відповідності. |$в регулярному вираженні необхідно для тестового випадку з роздільником в кінці.

Python 3 , 77 байт

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

Спробуйте в Інтернеті!

Це передбачає, що рядок кодується ASCII і передбачає, що це sі cє попередньо завантажені змінні, що містять вхідні дані.

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

Це рішення працює на тому, що в кодуванні ASCII, малі літери розміщуються 32 записи після великих літер

Редагувати: я щойно зрозумів, що це також використовує великі літери першого рядка, якого він не повинен. але я дуже пишаюся своєю нісенітницею, тому залишу це, якщо це дозволять