Cho một chuỗi, viết hoa nó. Bằng cách viết hoa, tôi có nghĩa là conTeNT-lENgththay đổi Content-Length. Trong ví dụ tôi chỉ ra chuỗi có 2 từ với -ranh giới từ. Tuy nhiên tôi hy vọng bạn viết mã cho chuỗi chứa bất kỳ số từ được phân cách bởi một đơn nhân vật như ranh giới. Ranh giới này có thể thay đổi trên chuỗi.

Điều kiện

1. sử dụng regular expressionsđược không được phép .
2. có thể có bất kỳ số lượng từ trong một câu (chuỗi).
3. mỗi từ sẽ bao gồm các Englishchữ cái [a-zA-Z]của bất kỳ trường hợp nào.
4. các từ khác nhau trong câu sẽ được phân tách bằng một ký tự. Nhân vật này sẽ chỉ được bất kỳ một trong những -, ., <space-character>, /, &, #. Bạn có thể cho rằng câu đó sẽ không chứa bất kỳ ký tự nào khác ngoại trừ những câu được đề cập.
5. ranh giới từ nên được bảo tồn trong đầu ra.
6. mã ngắn nhất thắng.

Ví dụ chương trình của bạn nên đầu ra Begin/With.Type&Contentcho 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 ký tự

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

Một cách tiếp cận GolfScript khá cơ bản, hoạt động cho tất cả các đầu vào theo đặc điểm kỹ thuật. Các ví dụ có thể được kiểm tra trực tuyến .

Con trăn 3,22

print(input().title())

Mã này sẽ lấy một chuỗi làm đầu vào từ stdin và cung cấp đầu ra viết hoa cho thiết bị xuất chuẩn.

ví dụ:

đầu vào:

BEGIN/wITH.tyPe&cOnTENt

thông báo:

Begin/With.Type&Content

Đoạn mã sau dành cho đầu vào nhiều dòng (nếu cần)

Trăn 3, 46

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

Toán học 62

Dữ liệu

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

Mã

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

Sử dụng

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

"Phạm vi người dùng chấp nhận / Loại độ dài. Loại"

f /@ tests

{"Chấp nhận đại lý / Phạm vi người dùng loại dài. Loại",
"Loại & đại lý / Cc / Độ dài nội dung # Chấp nhận / Đại lý.Range-Cc / Nội dung / Mã", "Cc / Responce.Lipse # Type-With & User / Begin & User.Agent & Begin / Chấp nhận / Cc "," Độ dài # Người dùng. Loại / Loại bắt đầu & Độ dài / Chấp nhận # Phạm vi / Mã & Và-Chấp nhận / Nội dung "," Nội dung / Chấp nhận ",
" Bắt đầu / Với.Type & Nội dung ",
" Code.Cc # Người dùng. -Và & Loại & Độ dài. Loại người dùng. Người dùng & Với ",
" Phạm vi & Nội dung với Loại loại nội dung ",
" Mã bắt đầu # Người dùng # Tác nhân. Người dùng ",
" Độ dài loại "}

JavaScript (94)

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

PHP: 78 73 65 64 ký tự

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

Đầu vào được truyền vào $s . Nó hoạt động trên chuỗi như một mảng các ký tự.

Nó là một máy 2 trạng thái đơn giản. Nó phụ thuộc vào thứ tự từ vựng của các chuỗi và trình phân tích cú pháp tự động giả định rằng bạn muốn nhập một chuỗi trong một số trường hợp.

Trạng thái đang được lưu trữ trong $bvà đang được biểu diễn dưới dạng tên của hàm cần được gọi trên ký tự tiếp theo. ucfirstvà lcfirstngắn hơn để gõ và có hành vi giống hệt với strtolower/ strtouppertrên các chuỗi ký tự đơn. Ngoài ra, vì chúng chỉ khác nhau bởi một chữ cái, chúng ta có thể sử dụng chúng một cách hiệu quả để lưu trữ trạng thái. Phiên bản gốc cần thiết để lưu trữ trạng thái rõ ràng trong boolean.

Vì echo không in bất cứ điều gì cho boolean false, tôi đã sử dụng dấu phẩy và !toán tử để "ẩn" phép gán (trong trường hợp này là trung thực) trong câu lệnh echo. Điều này cho phép tôi lưu một nhân vật bằng cách loại bỏ {}.

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

Đưa các dòng trên stdin, dịch chúng sangstdout . (Thích SIGINTđể EOF.)

Quyền hạn: 37 - 43

Tùy thuộc vào cách bạn muốn lấy đầu vào ...

Nhắc người dùng nhập liệu: 43

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

Lấy đầu vào từ đường ống: 38

(Culture).TextInfo.ToTitleCase($input)

Cung cấp đầu vào dưới dạng đối số khi chạy tập lệnh: 37

(Culture).TextInfo.ToTitleCase($args)

LƯU Ý: Các tập lệnh trên sẽ bỏ qua tất cả các từ mũ, để nguyên như vậy. Nếu điều này cần được tính đến, đầu vào nên được buộc thành chữ thường trước khi chuyển đổi Trường hợp tiêu đề. Điều này thêm 10 ký tự cho phương thức đầu tiên và 12 ký tự cho hai phương thức còn lại.

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

Java - 209 ký tự

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

Tôi đã thêm các dòng mới chỉ để đọc.

R, 143 116

Một giải pháp hơi dài có thể nhưng ở đây chúng tôi đi:

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="")}

Hơi vô duyên và giải thích:

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="")
    }

Biên tập : 116 ký tự

Thách thức chính ở đây là vector hóa substr. Đây là một cách ít dài dòng hơn.

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="")}

Thụt lề:

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
    }

Sử dụng:

> 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#@

Viết cái này làm tổn thương não tôi.

Điều này đưa đầu vào qua ~và nếu ký tự trước là một trong các dấu phân cách (hoặc nếu không có ký tự trước), thì nó thực thi

:'``!3*j' -;

Đoạn mã này lấy ký tự và nếu giá trị ascii của nó lớn hơn hoặc bằng a, nó sẽ trừ 32 từ nó, do đó thay đổi nó thành chữ hoa. Nếu nó nhỏ hơn a, 3*jbỏ qua điều chỉnh. Sau đó, nó bỏ qua phần tiếp theo. Phần này xử lý việc thay đổi từ chữ hoa sang chữ thường (tôi chắc chắn nó có thể được hợp nhất với phần tiếp theo; tôi chỉ không chắc làm thế nào):

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

Ký tự được in ( ,), sau đó kiểm tra xem ký tự có phải là một trong các ranh giới không:

'/`!

Về cơ bản, nó so sánh ký tự với giá trị ascii của /. Nếu ký tự không phải là một ranh giới, mã sẽ đẩy 12để nó sẽ bỏ qua điều chỉnh viết hoa trong lần tiếp theo. #bỏ qua chương trình kết thúc: @và nếu kết thúc đầu vào đạt được, ~sẽ gửi mã thực thi trở lại @, kết thúc chương trình.

Ruby: 60 51 50 47 ký tự

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

Chạy mẫu:

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

Một xử lý đơn giản dựa trên trạng thái máy hữu hạn:

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

(Ở đâu x làstring để tận dụng)

và tất nhiên, nếu bạn muốn nhàm chán (sau khi thông số kỹ thuật được cập nhật), bạn có thể sử dụng

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

hoặc, với tất cả các mẫu soạn sẵn nhàm chán:

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)

Viết tắt, 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

Đầu ra được dịch được ghi vào stdoutkhi nó đọc từ stdin.

Befunge-98 (29), C (65)

Vì phương thức / thuật toán khá giống nhau, tôi bao gồm cả hai phiên bản trong cùng một bài. Cả hai đều dựa vào việc theo dõi xem ký tự cuối cùng là ký hiệu hay chữ cái, để biết có nên viết thường một chữ cái hay không.

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

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

05AB1E , 1 byte

Mã số:

™

Giải trình:

™   # Implicit input which is converted to title case.

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

VBA-11 ký tự

Trong cửa sổ ngay lập tức

?[Proper()]

Bản thảo

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

AWK, 113 103 byte

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

Điều này hoạt động tốt đối với nội dung một dòng, nhưng đối với đầu vào nhiều dòng, cần thêm một vài điểm

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

Sẽ thật tuyệt nếu chúng ta có thể tận dụng việc tự động chia bản ghi thành các trường và sửa đổi các trường đã nói, nhưng sau đó chúng ta sẽ mất các dấu tách trường. :

Tôi biết đây không phải là câu trả lời hay nhất và đây là một câu hỏi khá cũ, nhưng tôi cảm thấy AWK không được thể hiện trong không gian trả lời của CG :)

(Cảm ơn @manatwork đã kiểm tra mã, nó sẽ hoạt động ngay bây giờ :) Cũng thay đổi luồng nhưng vẫn giữ nguyên số đếm byte, bằng cách thay thế một số ;bằng dòng mới.)

PHP (> v5.4.32) - 25 ký tự

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

Giải trình:

• ucwords () là một hàm PHP tích hợp

• Tham số đầu tiên $alà đầu vào

• Tham số thứ hai là dấu phân cách (ký tự không phải bảng chữ cái được tìm thấy trong trường hợp thử nghiệm)

• Trả về / echo / print được giả định do sử dụng <?= ?>

Liên kết:

• Sân chơi mã

• Hàm ucwords () của PHP

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

Hãy thử phiên bản CHỌN trong SQL Server 2012 tại đây .

Thay thế "foo" bằng chuỗi đầu vào. Số char là cho một chuỗi có độ dài bằng không. Mã này đi qua chuỗi bằng cách sử dụng một chỉ mục, ghi đè hoặc hạ thấp ký tự ở vị trí đó dựa trên ký tự trước đó.

JavaScript (Node.js) , 70 byte

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

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

Tôi chắc chắn rằng điều này có thể được chơi golf hơn nữa.

Ghi chú :

Đưa đầu vào qua f(string)(), cuối cùng là bắt buộc nhưng không thực hiện được gì.

Quyền hạn, 77 75 byte

Giải pháp này đáp ứng đầy đủ các quy tắc nhiệm vụ (thậm chí ví dụ mơ hồ foo:bar).

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

Xem thêm giải pháp Powershell với chức năng dựng sẵn ToTitleCase từ @Iszi.

Kịch bản kiểm tra giải thích:

$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"
}

Đầu ra:

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 byte

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

Byte được tính bằng CP-437 ;là một byte đơn (mã ký tự 20).

Phương thức nhập liệu ở đây hơi lạ: các ký tự được nhập cùng một lúc và viết hoa của chúng được chuyển đổi trước khi chúng được hiển thị. Vì vậy, khi bạn nhập aGeNT, nó xuất hiện trên màn hình như Agent. Đánh Enterkết thúc chương trình.

Python 3 , 122 byte

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

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

Không phải là một điểm số tuyệt vời, nhưng tôi muốn thử nó mà không cần các hoạt động chuỗi dựng sẵn để thay đổi trường hợp.

PHP - 23 ký tự

mb_convert_case ($ w, 2);

Nó cần php_mb chuỗi để hoạt động