Dalam Coding Golf itu, Anda harus mengonversi satu konvensi pengkodean dengan TitleCase ke lower_case_with_underscores. Dan sebaliknya!

Spesifikasi

Ganti casing dengan cara berikut:

• Jika karakter garis bawah adalah pembatas, ubah casing menjadi Title Case tanpa pembatas.
• Jika ada beberapa kata tanpa pembatas, ubah casing menjadi huruf kecil dan tambahkan karakter garis bawah sebagai pembatas.
• Dalam hal hanya satu kata (atau satu karakter): ganti casing ke Title Case jika kata tersebut dimulai dengan huruf kecil; ganti casing ke huruf kecil jika kata dimulai dengan huruf besar.

Karakter yang diizinkan:

• A hingga Z
• a hingga z
• garis bawah ( _).

Masukan dengan kata-kata cased campuran tidak diizinkan. Contoh kasus yang dilarang:

• Coding_Convention_Conversion
• a_BC

Contoh Kasus

Input                        | Expected Output
===========================================================
CodingConventionConversion   | coding_convention_conversion
coding_convention_conversion | CodingConventionConversion
abc                          | Abc
Abc                          | abc
ABC                          | a_b_c
a_b_c                        | ABC
a                            | A
A                            | a

Aturan

• Itu diizinkan untuk digunakan ToUpper, ToLowerdan ToTitleCasefungsi.
• Menggunakan ekspresi reguler diperbolehkan.
• code-golf : kode terpendek dalam byte menang!

Pyth, 25 byte 29 33 35 40

Disimpan 2 byte berkat @Dennis

Disimpan 4 byte berkat @FryAmTheEggman

?rIz0smrd4cz\_tsXzrG1*\_G

Cobalah online

Jolf, 35 byte

Menghemat 1 byte berkat @ Cᴏɴᴏʀ O'Bʀɪᴇɴ . Ini dikodekan dalam ISO 8859-7.

? hI'_ΜGI'_dpyH0pxRGIL0"(?=[A-Z])'_

Woohoo program Jolf pertamaku!

Penjelasan

   // I = input
? hI'_                              // If input contains _
       GI'_                          // Split on _
      Μ    d                         // Loop, then join
            pyH0                     // Make the first character uppercase
                                    // ELSE...
                  RGIL0"(?=[A-Z])    // Split *after* all uppercase chars
                                 '_  // join with _ 
                px                   //Make lowercase

Cobalah online

Retina , 37

Terima kasih kepada @ MartinBüttner karena telah menghemat 4 byte!

^|[A-Z]
_$0
T`Ll`lL`_.
^_|_(?=[A-Z])

(Perhatikan baris tambahan.)

Cobalah online. Catatan ini termasuk tambahan m`untuk mengonfigurasi beberapa baris untuk memperlakukan setiap jalur input secara terpisah sehingga semua testcases dapat dijalankan dalam sekali jalan. Ini bukan persyaratan pertanyaan, jadi ini tidak dihitung dalam skor.

• Baris 1 dan 2 masukkan _di awal input atau sebelum huruf besar. Semua kata sekarang _dipisahkan, terlepas dari kasusnya.
• Baris 3 bertukar kasus huruf pertama dalam setiap kata.
• Baris 4 dan 5 hapus _pada saat awal input, atau ketika diikuti oleh huruf besar.

GNU Sed, 46

Terima kasih kepada @TobySpeight untuk menghemat 2 byte!

Skor mencakup +1 untuk opsi -E(atau -r) untuk sed.

s/(^|_)([a-z])/\u\2/g
t
s/[A-Z]/_\l&/g
s/^_//

Cobalah online.

Sed sederhananya:

• Baris 1 menggantikan awal baris atau _, diikuti dengan huruf kecil dengan huruf besar huruf itu. The gbendera untuk sMelakukan substitusi ini untuk setiap contoh ditemukan
• tmelompat ke :label yang tidak disebutkan namanya jika ada kecocokan untuk substitusi di atas. Label ini secara implisit di akhir.
• Kalau tidak, semua huruf besar diganti dengan _huruf kecil dari huruf itu
• Ini meninggalkan _petunjuk di depan huruf pertama. s/^_//menghapus itu.

JavaScript (ES6), 87 byte

s=>s.replace(/[A-Z]|(^|_)(.)/g,(c,_,l,i)=>l?l.toUpperCase():(i?"_":"")+c.toLowerCase())

Penjelasan

Tergantung pada bagian mana dari regex yang cocok, itu menggantikan pertandingan dengan kasus yang berlawanan.

s.replace(
  /[A-Z]|(^|_)(.)/g,
  (c,_,l,i)=>
    l?
      (i?"_":"")+c.toLowerCase()
    :l.toUpperCase()
)

Uji

var solution = s=>s.replace(/[A-Z]|(^|_)(.)/g,(c,_,l,i)=>l?l.toUpperCase():(i?"_":"")+c.toLowerCase())

<input type="text" id="input" value="coding_convention_conversion" />
<button onclick="result.textContent=solution(input.value)">Go</button>
<pre id="result"></pre>

Ruby, 101 87 75 byte

->s{s.gsub(/^.|[A-Z]/,'_\0').gsub(/_./,&:swapcase).gsub(/_(?=[A-Z])|^_/,'')}

Sayangnya, ini melakukan hal yang persis sama dengan solusi Retina, karena metode itu ternyata lebih pendek dari apa pun yang saya dapatkan.

Python 3, 130 byte

Upaya cepat dan kotor menggunakan regex untuk membelah tutup. Kekuatan yang cukup kasar: jika ada yang bisa datang dengan pendekatan yang berbeda, saya yakin ini bisa dikalahkan.

import re
lambda s:('_'.join(re.findall('[A-Z][a-z]*',s)).lower(),''.join([a[0].upper()+a[1:]for a in s.split('_')]))[s.islower()]

PHP 160 byte

bukan yang terpendek tetapi untuk kelengkapan di sini solusi saya di PHP, $ s memiliki string untuk dikonversi:

trim(preg_replace_callback('/((^[a-z]|_[a-z])|([A-Z]))/',function($m){return empty($m[2])?'_'.strtolower($m[3]):strtoupper(str_replace('_','',$m[2]));},$s),'_')

Perl 6 ,  73 72 71   68 byte

{.comb(/<:Lu><:Ll>*|<:Ll>+/).map({/<:Lu>/??.lc!!.tc}).join('_'x?/<:Lu>/)} # 73
{.comb(/<:Lu><:Ll>*|<:L>+/).map({/<:Lu>/??.lc!!.tc}).join('_'x?/<:Lu>/)}  # 72
{/<:Lu>/??S:g/(^)?(<:Lu>)/{$0||'_'}$1.lc()/!!S:g/[^|_](<:Ll>)/$0.tc()/}   # 71
{.comb(/<:Lu><:Ll>*|<:L>+/).map({/<:Lu>/??.lc!!.tc}).join('_'x!/_/)}      # 68

Pemakaian:

# give it a lexical name
my &code = {...}

for <CodingConventionConversion coding_convention_conversion abc Abc ABC a_b_c a A>
{ say .&code }

coding_convention_conversion
CodingConventionConversion
Abc
abc
a_b_c
ABC
A
a

Penjelasan:

{
  .comb( / <:Lu><:Ll>* | <:L>+ / ) # grab the "words" only
  .map({
      /<:Lu>/ # if the word has uppercase
    ??
      .lc     # lowercase the whole word
    !!
      .tc     # otherwise titlecase the word
   })
  .join(  # join the words
    '_'   # with '_'
    x     # repeated
    !/_/  # zero times if it had a _, otherwise once
  )
}

Anda mungkin bertanya-tanya mengapa saya menggunakan properti Unicode ( <:Lu>, <:Ll>) alih-alih hanya kelas karakter. Dalam Perl 6 mereka tidak lagi dieja [a-z]mereka dieja <[a..z]>yang 1,6 kali lebih besar. Tanda kurung [ … ]digunakan untuk pengelompokan non-menangkap yang dieja seperti (?: … )dalam Perl 5.

Japt, 40 byte

UfV="%A" ?UrV@'_s!Y +Xv} :Ur"^.|_."_sJ u

Uji secara online!

Bagaimana itu bekerja

           // Implicit: U = input string
UfV="%A"   // Set variable V to the string "\\A", and get all matches in U.
?          // If the list is not null:
UrV@     } //  Replace each match X and its index Y with this function:
'_s!Y +Xv  //   Return "_".slice(!Y) (1 for Y=0, 0 for anything else) + X.toLowerCase().
:          // Otherwise:
Ur"^.|_."  //  Replace the char at the beginning and each char following an underscore with:
_sJ u      //   The last char of the match (the letter) .toUpperCase().

Perl 5, 42 byte

40 byte plus 2 untuk -p(terima kasih, dev-null )

s/[A-Z]/_\l$&/g||s/(^|_)(.)/\u$2/g;s/_//

𝔼𝕊𝕄𝕚𝕟 3, 15 karakter / 32 byte (tidak kompetitif)

⟮ѨDZï⟯≠ï?Ⅰ:ѨȎѨƎï

Try it here (Firefox only).

v3 dirilis setelah tantangan ini, dengan banyak perbaikan bug dan pembaruan perpustakaan.

Penjelasan

Ini hanya mashup builtin.

⟮ѨDZï⟯≠ï?Ⅰ:ѨȎѨƎï // implicit: ï=input
⟮ѨDZï⟯≠ï?        // check if ï is NOT in snake_case
       Ⅰ       // if so, then convert to snake_case
        :ѨȎѨƎï // otherwise, convert to camelCase and make the first letter UPPERCASE

Jelly , 24 byte

e€ØAḊkŒlj”_$ʋ⁾_ yŒtḲƲ}Ẹ?

Cobalah online!

Python 3 , 86 byte

lambda s,u='_':''.join([u[i>u:]+i.lower()for i in(s<u)*s]or[u]+s.title().split(u))[1:]

Cobalah online!

Juga berfungsi di Python 2 .

Memanfaatkan fakta praktis bahwa nilai ascii untuk _(95) tepat di antara huruf besar (65-90) dan huruf kecil (97-122), yang memungkinkan perbandingan string yang mudah.

Keempat (gforth) , 129 byte

: f bounds dup c@ 32 xor emit 1+ ?do i c@ '_ < if ." _"i c@ 32 + emit then i c@ '_ > if i 1- c@ '_ = 32 * i c@ + emit then loop ;

Cobalah online!

Penjelasan Kode

: f              \ start a new word definition
  bounds         \ convert string address and length to beginning and ending address
  dup c@         \ get the first character
  32 xor emit    \ convert to the opposite case and output
  1+             \ add 1 to beginning of string (skip starting char)
  ?do            \ begin counted loop over string character addresses
    i c@ '_ <    \ check if char is uppercase 
    if           \ if it is:
      ." _"      \ output underscore
      i c@       \ get current char
      32 + emit  \ convert to lowercase and output
    then         \ end if block
    i c@ '_ >    \ check if lowercase (not '_')
    if           \ if it is:
      i 1- c@    \ get the previous character
      '_ = 32 *  \ if it's an underscore, multiply by 32 (true = -1 in forth)
      i c@ +     \ add result to current char (make uppercase if previous was '_')
      emit       \ output resulting char
    then         \ end if block
  loop           \ end loop
;                \ end word definition