Diberikan string, gunakan huruf besar. Dengan huruf besar, maksud saya adalah conTeNT-lENgthperubahan Content-Length. Dalam contoh saya menunjukkan string dengan 2 kata dengan -sebagai batas kata. Namun saya mengharapkan Anda untuk menulis kode untuk string yang berisi sejumlah kata yang dipisahkan oleh satu karakter sebagai batas. Batas ini dapat berubah melintasi string.

Kondisi

1. menggunakan regular expressionsini tidak diperbolehkan .
2. mungkin ada sejumlah kata dalam kalimat (string).
3. setiap kata akan terdiri dari Englishhuruf [a-zA-Z]apa saja.
4. kata-kata yang berbeda dalam kalimat akan dipisahkan oleh satu karakter. Karakter ini akan hanya menjadi salah satu dari -, ., <space-character>, /, &, #. Anda dapat dengan aman berasumsi bahwa kalimat itu tidak akan mengandung karakter lain kecuali yang disebutkan.
5. batas kata harus dipertahankan dalam output.
6. kode menang pendek.

Misalnya program anda harus output Begin/With.Type&Contentuntuk BeGin/wITH.tyPE&conTeNt.

Some test cases:
 "aGeNT ACcEpT/LEngTh-tYPe USeR raNgE.TyPe" 
 "type&AgeNt/CC/COnteNt lEnGth#acCePT/AgeNt.RAnGe-Cc/contEnt/cODe" 
 "cc/rEspoNCe.lEngtH#tYpE-witH&UsEr/bEgIN&uSer.AGEnT&begIn/aCCEPt/Cc" 
 "lENgTH#USeR.tYpE/BeGiN&LENGth tYpe/ACCEpt#rANge/codE&AnD-ACCepT/ConTenT" 
 "contENT/ACcEpT" 
 "BeGin/wITH.tyPE&conTeNt"
 "Code.cc#User.lenGTh-USer-AND&tyPE TypE&leNgtH.tYPe usER.UseR&with" 
 "RaNgE&COnTeNT WITh CoNTENT-TypE tyPe"
 "BEgin COdE#uSeR#aGeNt.USeR"
 "TypE LENGth"

GolfScript, 36 27 19 karakter

0\{95&+.47>32*\}%\;

Pendekatan GolfScript cukup mendasar yang bekerja untuk semua input sesuai dengan spesifikasi. Contoh-contoh dapat diuji secara online .

Python 3,22

print(input().title())

Kode ini akan mengambil string sebagai input dari stdin dan memberikan output yang dikapitalisasi ke stdout.

sebagai contoh:

memasukkan:

BEGIN/wITH.tyPe&cOnTENt

ouput:

Begin/With.Type&Content

Kode berikut untuk input multi-jalur (jika perlu)

Python 3, 46

import sys
for i in sys.stdin:print(i.title())

Mathematica 62

Data

tests={"aGeNT ACcEpT/LEngTh-tYPe USeR raNgE.TyPe","type&AgeNt/CC/COnteNt lEnGth#acCePT/AgeNt.RAnGe-Cc/contEnt/cODe","cc/rEspoNCe.lEngtH#tYpEwitH&UsEr/bEgIN&uSer.AGEnT&begIn/aCCEPt/Cc","lENgTH#USeR.tYpE/BeGiN&LENGth tYpe/ACCEpt#rANge/codE&AnD-ACCepT/ConTenT","contENT/ACcEpT","BeGin/wITH.tyPE&conTeNt","Code.cc#User.lenGTh-USer-AND&tyPE TypE&leNgtH.tYPe usER.UseR&with","RaNgE&COnTeNT WITh CoNTENT-TypE tyPe","BEgin COdE#uSeR#aGeNt.USeR","TypE LENGth"}

Kode

StringReplace[ToLowerCase@#,WordBoundary~~x_:>ToUpperCase@x]&

Pemakaian

f["aGeNT ACcEpT/LEngTh-tYPe USeR raNgE.TyPe"]

"Rentang Pengguna Menerima / Panjang-Jenis Pengguna. Jenis"

f /@ tests

{"Agen Menerima / Panjang-Jenis Rentang Pengguna. Jenis",
"Jenis & Agen / Cc / Panjang Konten # Terima / Agen.Range-Cc / Konten / Kode", "Cc / Responses. Panjang # Jenis-Dengan & Pengguna / Mulai & Pengguna. Cerdas & Mulai / Terima / Cc "," Panjang # Pengguna. Jenis / Mulai & Jenis Panjang / Terima # Rentang / Kode & Dan-Terima / Konten "," Konten / Terima ",
" Mulai / Dengan. Jenis & Konten ",
" Code.Cc # Pengguna. Panjang-Pengguna -Dan & Tipe Jenis & Panjang. Tipe Pengguna. Pengguna & Dengan ",
" Rentang & Konten Dengan Tipe Tipe-Konten ",
" Mulai Kode # Pengguna # Agen. Pengguna ",
" Ketikkan Panjang "}

JavaScript (94)

prompt().split(l='').map(function(a){return l='A'>l?a.toUpperCase():a.toLowerCase()}).join('')

PHP: 78 73 65 64 karakter

$b=ucfirst;foreach(str_split($s)as$c)echo$b($c),!$b[0]=$c<A?u:l;

Input diteruskan $s . Ini beroperasi pada string sebagai array karakter.

Ini adalah mesin 2 keadaan sederhana. Itu bergantung pada urutan leksikal string, dan bahwa parser secara otomatis mengasumsikan Anda bermaksud mengetik string dalam beberapa kasus.

Status sedang disimpan $bdan diwakili sebagai nama fungsi yang perlu dipanggil pada karakter berikutnya. ucfirstdan lcfirstlebih pendek untuk mengetik dan memiliki perilaku yang identik dengan strtolower/ strtoupperpada string karakter tunggal. Juga, karena hanya berbeda satu huruf, kita dapat menggunakannya secara efisien untuk menyimpan status. Versi asli diperlukan untuk menyimpan status secara eksplisit dalam boolean.

Karena gema tidak mencetak apa pun untuk boolean false, saya menggunakan koma dan !operator untuk "menyembunyikan" tugas (yang dalam hal ini benar) dalam pernyataan gema. Ini memungkinkan saya untuk menyimpan karakter dengan menghapus {}.

C, 83

n;main(c){c=getchar();putchar(c>96?n?c:(n=c-32):c&64?n?c+32:(n=c):(n=0,c));main();}

Mengambil garis stdin, menerjemahkannya menjadi stdout. (Lebih suka SIGINTke EOF.)

Powershell: 37 - 43

Bergantung pada bagaimana Anda ingin mengambil input ...

Meminta pengguna untuk input: 43

(Culture).TextInfo.ToTitleCase((read-host))

Ambil input dari saluran pipa: 38

(Culture).TextInfo.ToTitleCase($input)

Berikan input sebagai argumen saat menjalankan skrip: 37

(Culture).TextInfo.ToTitleCase($args)

CATATAN: Skrip di atas akan mengabaikan semua huruf besar kata, membiarkannya apa adanya. Jika ini perlu diperhitungkan, input harus dipaksa huruf kecil sebelum konversi Judul Kasus. Ini menambahkan 10 karakter ke metode pertama, dan 12 ke dua lainnya.

(Culture).TextInfo.ToTitleCase((read-host).ToLower())
(Culture).TextInfo.ToTitleCase("$input".ToLower())
(Culture).TextInfo.ToTitleCase("$args".ToLower())

Java - 209 karakter

class C{
public static void main(String[]a){
for(String b:a){
char[]k=b.toLowerCase().toCharArray();
for(int i=-1;i<k.length;i++){if(i<0||"-. /&#".indexOf(k[i])>=0)k[++i]=(char)(k[i]-32);}
System.out.println(k);}}}

Saya menambahkan baris baru hanya untuk keterbacaan.

R, 143 116

Sebuah solusi yang agak lama mungkin tapi di sini kita mulai:

f=function(x){a=sapply(1:nchar(x),function(y)substr(tolower(x),y,y));d=c(1,which(!a%in%letters)+1);a[d]=toupper(a[d]);cat(a,sep="")}

Sedikit ungolfed dan menjelaskan:

f <- function(x){
    #Split the string in characters and "lower-case" everything
    a <- sapply(1:nchar(x),function(y)substr(tolower(x),y,y))
    #Select the first character and each character following a 
    #character that doesn't belong to lower case alphabet
    d <- c(1,which(!a%in%letters)+1)
    #Make those ones uppercase.
    a[d] <- toupper(a[d])
    #Output (stdout) while pasting them back together.
    cat(a,sep="")
    }

Edit : 116 karakter

Tantangan utama di sini adalah membuat vektor substr. Inilah cara lain yang tidak terlalu bertele-tele.

f=function(x){n=1:nchar(x);a=mapply(substr,tolower(x),n,n);d=c(T,!a%in%letters);a[d]=toupper(a[d]);cat(a[n],sep="")}

Bertakuk:

f <- function(x){
    n <- 1:nchar(x)
    a <- mapply(substr,tolower(x),n,n)
    d <- c(T,!a%in%letters) #This has been simplified as well
    a[d] <- toupper(a[d])
    cat(a[n],sep="") #Because a is now 1 char longer than x, need to subset a
    }

Pemakaian:

> f("aGeNT ACcEpT/LEngTh-tYPe USeR raNgE.TyPe")
Agent Accept/Length-Type User Range.Type

Befunge 98 - 24 45

~\j:'``!3*j' -;:'``b*j:'/`!3*j' +#;:,'/`!jc#@

Menulis ini melukai otak saya.

Ini membutuhkan input melalui ~dan jika karakter sebelumnya adalah salah satu dari pemisah (atau jika tidak ada karakter sebelumnya), itu dijalankan

:'``!3*j' -;

Cuplikan ini mengambil karakter, dan jika nilai ascii lebih besar atau sama dengan a, ia mengurangi 32 dari itu, sehingga mengubahnya menjadi huruf besar. Jika kurang dari itu a, 3*jlewati penyesuaian. Setelah itu, ia melewatkan bagian selanjutnya. Bagian ini menangani perubahan dari huruf besar ke huruf kecil (saya yakin itu dapat digabungkan dengan bagian berikutnya; Saya hanya tidak yakin bagaimana):

:'``b*j:'/`!3*j' +#;

Karakter dicetak ( ,), maka ini memeriksa jika karakter adalah salah satu batasan:

'/`!

Ini pada dasarnya membandingkan karakter dengan nilai ascii dari /. Jika karakter bukan batas, kode mendorong 12sehingga akan melewati penyesuaian kapitalisasi di waktu berikutnya. #melompati program akhir:, @dan jika akhir input tercapai, ~mengirimkan eksekusi kode kembali ke @, mengakhiri program.

Ruby: 60 51 50 47 karakter

$_.downcase.chars{|c|$><<$/=$/<?0?c.upcase: c}

Contoh dijalankan:

bash-4.1$ for line in "${test[@]}"; do printf '%-75s | %s\n' "$line" "$( ruby -ne '$_.downcase.chars{|c|$><<$/=$/<?0?c.upcase: c}' <<< "$line" )"; done
aGeNT ACcEpT/LEngTh-tYPe USeR raNgE.TyPe                                    | Agent Accept/Length-Type User Range.Type
type&AgeNt/CC/COnteNt lEnGth#acCePT/AgeNt.RAnGe-Cc/contEnt/cODe             | Type&Agent/Cc/Content Length#Accept/Agent.Range-Cc/Content/Code
cc/rEspoNCe.lEngtH#tYpE-witH&UsEr/bEgIN&uSer.AGEnT&begIn/aCCEPt/Cc          | Cc/Responce.Length#Type-With&User/Begin&User.Agent&Begin/Accept/Cc
lENgTH#USeR.tYpE/BeGiN&LENGth tYpe/ACCEpt#rANge/codE&AnD-ACCepT/ConTenT     | Length#User.Type/Begin&Length Type/Accept#Range/Code&And-Accept/Content
contENT/ACcEpT                                                              | Content/Accept
BeGin/wITH.tyPE&conTeNt                                                     | Begin/With.Type&Content
Code.cc#User.lenGTh-USer-AND&tyPE TypE&leNgtH.tYPe usER.UseR&with           | Code.Cc#User.Length-User-And&Type Type&Length.Type User.User&With
RaNgE&COnTeNT WITh CoNTENT-TypE tyPe                                        | Range&Content With Content-Type Type
BEgin COdE#uSeR#aGeNt.USeR                                                  | Begin Code#User#Agent.User
TypE LENGth                                                                 | Type Length

C # - 110

Pemrosesan berbasis-negara-mesin sederhana:

x.Aggregate(new{b=1>0,r=""},(s,c)=>new{b="-. /&#".Contains(c),r=s.r+(s.b?Char.ToUpper(c):Char.ToLower(c))}).r

(dimana xitustring huruf besar)

dan tentu saja, jika Anda ingin membosankan (setelah spesifikasinya diperbarui), Anda bisa menggunakannya

new CultureInfo(9).TextInfo.ToTitleCase(x)

atau, dengan semua boilerplate yang membosankan:

class C{static void Main(string[]a){System.Console.WriteLine(new System.Globalization.CultureInfo(9).TextInfo.ToTitleCase(a[0]));}}

Javascript 102

prompt().split(o=q='').map(function(c){o+=(q)?c.toLowerCase():c.toUpperCase(),q=('A'>c)?0:1})
alert(o)

Keempat, 135

: s swap ;
: c 1 begin key dup 96 > if s if 32 - then 0 s 
else dup 64 > if s 0= if 32 + then 0 s then else 1 s then then emit again ; c

Keluaran yang diterjemahkan ditulis stdoutsaat dibaca stdin.

Befunge-98 (29), C (65)

Karena metode / algoritma hampir sama, saya memasukkan kedua versi dalam posting yang sama. Keduanya bergantung pada melacak apakah karakter terakhir adalah simbol atau huruf, untuk mengetahui apakah huruf kecil atau tidak.

#@~:'0` #v_,0>
',++@'% '<   ^

c,d;main(){for(;~(c=getchar());d=c>48)putchar(c<48?c:c&95|32*d);}

05AB1E , 1 byte

Kode:

™

Penjelasan:

™   # Implicit input which is converted to title case.

Cobalah online!

Excel VBA-11 characters

In the Immediate window

?[Proper()]

VBscript

Set xlapp = CreateObject("excel.application")
wscript.echo xlapp.Evaluate("Proper(""BeGin/wITH.tyPE&conTeNt"")"

AWK, 113 103 bytes

{for(;++i<=split($0,a,"");){s=a[i]
O=O (L?tolower(s):toupper(s))
L=1
if(index("-. /&#",s))L=0}print O}

This works fine for single line content, but for multiline input a couple inits need to be added

{O=""
for(L=0;++i<=split($0,a,"");){s=a[i]
O=O (L?tolower(s):toupper(s))
L=1
if(index("-. /&#",s))L=0}print O}

It would be nice if we could take advantage of the automatic splitting of a record into fields and modifying said fields, but we would then lose our field separators. :(

I know this isn't the golfiest of answers and this is a rather old question, but I feel that AWK is underrepresented in the answer-space of CG :)

(Thanks @manatwork for testing the code, it should work now :) Also changed the flow but kept the byte-count the same, by replacing some ; with newlines.)

PHP (> v5.4.32) - 25 chars

<?=ucwords($a,'-. /&#')?>

Explanation:

• ucwords() is a built-in PHP function

• First parameter $a is the input

• Second parameter is delimeters (non-alphabet chatacters found in test cases)

• Return/echo/print is assumed due to use of <?= ?>

Links:

• Code Playground

• PHP ucwords() function

T-SQL, 179

DECLARE @T VARCHAR(MAX)='foo',@X VARCHAR(2),@ INT=0WHILE @<LEN(@T)SELECT @X=SUBSTRING(@T,@,2),@+=1,@T=STUFF(@T,@,1,IIF(@X LIKE'[a-Z]_',LOWER(RIGHT(@X,1)),UPPER(RIGHT(@X,1))))PRINT @T

Try the SELECT version in SQL Server 2012 here.

Replace "foo" with the input string. The char count is for a zero-length string. This code traverses the string using an index, uppercasing or lowercasing the character at that position based on the previous character.

JavaScript (Node.js), 70 bytes

c=>a=>c.split``.map(b=>a="A">a?b.toUpperCase():b.toLowerCase()).join``

Try it online!

I am sure this can be golfed further.

Note :

Takes input via f(string)() , the last are required but perform nothing.

Powershell, 77 75 bytes

This solution fully meets the task rules (even ambiguous example foo:bar).

-join($args|% t*y|%{"$_"|%('ToU*r','ToL*r')[+$l];$l=!('# -./&'|% Co*s $_)})

See also the Powershell solution with builtin function ToTitleCase from @Iszi.

Explained test script:

$f = {

-join(
$args|% t*y|%{                   # for each char from input string
    "$_"|%('ToU*r','ToL*r')[+$l] # evaluate ToUpper or ToLower method depend on $l (lower) value
                                 # Note the variable $l is not defined for a first char
                                 # so it evaluates toUpper for the first char 
    $l=!('# -./&'|% Co*s $_)     # golfed form for $l=!'# -./&'.Contains($_) expression
                                 # =0 if the current char is specified separator (toUpper for next char)
}                                # =1 otherwise (toLower for next char)
)                                # finally, join all chars to a result string

}

@(
    ,('foo:bar'                                                                 ,'Foo:bar')
    ,('aGeNT ACcEpT/LEngTh-tYPe USeR raNgE.TyPe'                                ,'Agent Accept/Length-Type User Range.Type')
    ,('type&AgeNt/CC/COnteNt lEnGth#acCePT/AgeNt.RAnGe-Cc/contEnt/cODe'         ,'Type&Agent/Cc/Content Length#Accept/Agent.Range-Cc/Content/Code')
    ,('cc/rEspoNCe.lEngtH#tYpE-witH&UsEr/bEgIN&uSer.AGEnT&begIn/aCCEPt/Cc'      ,'Cc/Responce.Length#Type-With&User/Begin&User.Agent&Begin/Accept/Cc')
    ,('lENgTH#USeR.tYpE/BeGiN&LENGth tYpe/ACCEpt#rANge/codE&AnD-ACCepT/ConTenT' ,'Length#User.Type/Begin&Length Type/Accept#Range/Code&And-Accept/Content')
    ,('contENT/ACcEpT'                                                          ,'Content/Accept')
    ,('BeGin/wITH.tyPE&conTeNt'                                                 ,'Begin/With.Type&Content')
    ,('Code.cc#User.lenGTh-USer-AND&tyPE TypE&leNgtH.tYPe usER.UseR&with'       ,'Code.Cc#User.Length-User-And&Type Type&Length.Type User.User&With')
    ,('RaNgE&COnTeNT WITh CoNTENT-TypE tyPe'                                    ,'Range&Content With Content-Type Type')
    ,('BEgin COdE#uSeR#aGeNt.USeR'                                              ,'Begin Code#User#Agent.User')
    ,('TypE LENGth'                                                             ,'Type Length')
) | % {
    $s,$e = $_
    $r = &$f $s
    "$($r-ceq$e): $r"
}

Output:

True: Foo:bar
True: Agent Accept/Length-Type User Range.Type
True: Type&Agent/Cc/Content Length#Accept/Agent.Range-Cc/Content/Code
True: Cc/Responce.Length#Type-With&User/Begin&User.Agent&Begin/Accept/Cc
True: Length#User.Type/Begin&Length Type/Accept#Range/Code&And-Accept/Content
True: Content/Accept
True: Begin/With.Type&Content
True: Code.Cc#User.Length-User-And&Type Type&Length.Type User.User&With
True: Range&Content With Content-Type Type
True: Begin Code#User#Agent.User
True: Type Length

QBasic, 74 bytes

1c$=LCASE$(INPUT$(1))
IF f=0THEN c$=UCASE$(c$)
f=c$>"@
?c$;
IF""<c$GOTO 1

Bytes are counted in CP-437; is a single byte (character code 20).

The input method here is a bit strange: characters are typed one at a time, and their capitalization is converted before they are displayed. So when you type in aGeNT, it appears on screen as Agent. Hitting Enter ends the program.

Python 3, 122 bytes

lambda s:''.join(chr(ord(c)+[[0,0],[0,32],[-32,0]][('@'<c<'[')-('`'<c<'{')]['@'<p<'['or'`'<p<'{'])for c,p in zip(s,'-'+s))

Try it online!

Not a great score, but I wanted to try it without builtin string operations for case changing.

PHP - 23 characters

mb_convert_case($w, 2);

It needs php_mbstring to work