给定一个字符串，将其大写。大写的意思是conTeNT-lENgth改变Content-Length。在示例中，我显示了带有2个单词的字符串-作为单词边界。但是，我希望您为包含以单个字符分隔的任意多个单词的边界的字符串编写代码。该边界可能会在整个字符串上变化。

条件

1. 使用regular expressions是不允许的。
2. 句子（字符串）中可以有任意数量的单词。
3. 每个单词将由English大小写字母组成[a-zA-Z]。
4. 句子中的不同单词将由单个字符分隔。该角色将仅是任何一个-，.，<space-character>，/，&，#。您可以放心地假设该句子除提及的字符外将不包含任何其他字符。
5. 字边界应保留在输出中。
6. 最短的代码胜出。

例如你的程序应该输出Begin/With.Type&Content的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个字符

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

一个非常基本的GolfScript方法，可根据规范适用于所有输入。这些示例可以在线进行测试。

Python 3,22

print(input().title())

该代码将一个字符串作为来自stdin的输入，并将大写的输出提供给stdout。

例如：

输入：

BEGIN/wITH.tyPe&cOnTENt

输出：

Begin/With.Type&Content

以下代码用于多行输入（如有必要）

Python 3、46

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

Mathematica 62

数据

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

码

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

用法

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

“代理接受/长度类型用户范围。类型”

f /@ tests

{“ Agent接受/长度类型用户Range.Type”，
“ Type＆Agent /抄送/内容长度＃Accept / Agent.Range-Cc /内容/代码”，“ Cc / Responce.Length＃Type-With＆User / Begin＆User.Agent＆Begin /接受/抄送”，“长度＃User.Type /开始和长度类型/接受＃范围/代码和与接受/内容”，“内容/接受”，
“开始/包含。类型和内容”，
“ Code.Cc＃User.Length-User -And＆Type Type＆Length.Type User.User＆With”，
“具有Content-Type类型的范围和内容”，
“ Begin Code＃User＃Agent.User”，
“ Type Length”}

的JavaScript（94）

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

PHP：78 73 65 64个字符

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

输入传入$s。它以字符数组的形式对字符串进行操作。

这是一个简单的2状态机。它依赖于字符串的词汇顺序，并且在某些情况下，解析器会自动假定您要键入字符串。

状态存储在其中$b并表示为需要在下一个字符上调用的函数的名称。ucfirst并且lcfirst键入较短，并且与strtolower/ strtoupper在单个字符串上具有相同的行为。另外，由于它们仅相差一个字母，因此我们可以有效地使用它们来存储状态。原始版本需要将状态显式存储在布尔值中。

由于echo不会为布尔值false打印任何内容，因此我使用逗号和!运算符在echo语句中“隐藏”赋值（在这种情况下为true）。这使我可以通过删除来保存字符{}。

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

接上线stdin，将其转换为stdout。（倾向于SIGINT到EOF。）

动力壳：37-43

取决于您要如何输入...

提示用户输入：43

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

从管道中获取输入：38

(Culture).TextInfo.ToTitleCase($input)

运行脚本时提供输入作为参数：37

(Culture).TextInfo.ToTitleCase($args)

注意：上面的脚本将忽略全部大写的单词，使它们保持原样。如果需要考虑这一点，则应在标题大小写转换之前将输入强制为小写。这将第一种方法添加10个字符，将另外两个添加12个字符。

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

Java-209个字符

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

我添加换行符只是为了提高可读性。

R，143 116

一个解决方案可能会有点长，但是我们开始：

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

略有偏离，并作了解释：

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

编辑：116个字符

这里的主要挑战是矢量化substr。这是另一种不太冗长的方法。

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

缩进：

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
    }

用法：

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

写这个伤了我的大脑。

这将通过输入，~并且如果前一个字符是分隔符之一（或者如果没有前一个字符），它将执行

:'``!3*j' -;

该代码段采用字符，如果其ascii值大于或等于a，则从中减去32，从而将其更改为大写。如果小于a，则3*j跳过调整。之后，它将跳过下一部分。这部分处理从大写到小写的变化（我确定它可以与下一部分合并；我不确定如何）：

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

字符被打印（,），然后检查字符是否为边界之一：

'/`!

它基本上将字符与的ascii值进行比较/。如果字符不是边界，则代码会推送，12以便下次将跳过大写调整。#跳过结束程序：@，如果到达输入的末尾，~则将代码执行发送回@，结束程序。

Ruby：60 51 50 47个字符

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

样品运行：

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

一个简单的基于有限状态机的处理：

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

（其中，x是string大写）

当然，如果您想感到无聊（在更新规范之后），可以使用

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

或者，对于所有无聊的样板：

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)

福斯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

转换后的输出stdout从中读取时被写入stdin。

Befunge-98（29），C（65）

由于方法/算法几乎相同，因此我将两个版本都包含在同一篇文章中。两者都依赖于跟踪最后一个字符是符号还是字母，以便知道是否将字母小写。

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

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

05AB1E，1个字节

码：

™

说明：

™   # Implicit input which is converted to title case.

在线尝试！

Excel VBA-11字符

在立即窗口中

?[Proper()]

VB脚本

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

AWK， 113 103字节

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

这适用于单行内容，但是对于多行输入，需要添加几个init

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

如果可以利用将记录自动拆分为字段并修改所述字段的优势，那将是很好的选择，但随后我们将失去字段分隔符。:(

我知道这不是答案最复杂的问题，这是一个相当老的问题，但是我认为AWK在CG的答案空间中的代表性不足：)

（感谢@manatwork测试代码，它现在应该可以工作了：）还更改了流程，但通过用;换行符替换字节数来保持字节数不变。）

PHP（> v5.4.32）-25个字符

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

说明：

• ucwords（）是内置的PHP函数

• 第一个参数$a是输入

• 第二个参数是分度数（在测试用例中发现的非字母字符）

• 假定由于使用了回送/回显/打印 <?= ?>

链接：

• 代码游乐场

• PHP ucwords（）函数

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

在此处尝试使用SQL Server 2012中的SELECT版本。

用输入字符串替换“ foo”。字符计数用于零长度的字符串。该代码使用索引遍历字符串，根据先前的字符在该位置将字符大写或小写。

JavaScript（Node.js），70字节

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

在线尝试！

我相信这可以继续打下去。

注意 ：

通过f(string)()接受输入，最后一个是必需的，但是什么也不做。

Powershell，77个 75字节

该解决方案完全符合任务规则（甚至是模棱两可的示例foo:bar）。

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

另请参阅@Iszi中具有内置功能ToTitleCase的Powershell解决方案。

解释测试脚本：

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

输出：

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个字节

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

字节数在CP-437中进行计数；是一个字节（字符代码20）。

这里的输入方法有点奇怪：一次键入一个字符，然后在显示之前先转换其大写。因此，当您键入时aGeNT，它在屏幕上显示为Agent。击中Enter结束程序。

Python 3，122字节

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

在线尝试！

分数不是很高，但是我想在没有内置字符串操作的情况下尝试进行大小写更改。

PHP-23个字符

mb_convert_case（$ w，2）;

它需要php_mbstring才能工作