อันนี้ค่อนข้างเร็ว แต่ฉันแน่ใจว่าคุณจะชอบ

Codegolf เป็นโปรแกรมที่จะป้อนข้อมูลในรูปแบบของประโยคและให้ผลลัพธ์ด้วยตัวอักษรตัวแรกในแต่ละคำ

กฎ:

1. ข้อมูลที่ส่งอาจไม่อยู่ในรูปแบบของฟังก์ชัน ดังนั้นไม่:

   function x(y){z=some_kind_of_magic(y);return z;} เป็นคำตอบสุดท้ายของคุณ ... รหัสของคุณจะต้องแสดงว่ามันต้องใช้อินพุตและให้เอาต์พุต

2. รหัสจะต้องรักษาอักษรตัวใหญ่อื่น ๆ ที่มีการป้อนข้อมูล ดังนั้น

   eCommerce and eBusiness are cool, don't you agree, Richard III?
   

   จะถูกแสดงผลเป็น

   ECommerce And EBusiness Are Cool, Don't You Agree, Richard III?
   

3. บางคนอาจจะคิดว่า "ง่ายฉันจะใช้ regex!" และการใช้ regex ดั้งเดิมในภาษากอล์ฟที่คุณเลือกจะมีโทษ 30 ตัวซึ่งจะถูกนำไปใช้กับการนับรหัสสุดท้ายของคุณ ปีศาจหัวเราะ

4. "คำ" ในกรณีนี้คือสิ่งที่คั่นด้วยช่องว่าง ดังนั้นจึงpalate cleanserมีสองคำในขณะที่pigeon-toedถือว่าเป็นหนึ่งคำ if_you_love_her_then_you_should_put_a_ring_on_itถือเป็นหนึ่งคำ ถ้าเป็นคำเริ่มต้นด้วยอักขระที่ไม่ใช่ตัวอักษรเป็นคำที่เก็บรักษาไว้ดังนั้นหลังจากการแสดงผลยังคงเป็น_this _this(ความรุ่งโรจน์ถึง Martin Buttner สำหรับชี้กรณีทดสอบนี้ออก)

   • 4b ไม่มีการรับประกันว่าคำในวลีอินพุตจะถูกคั่นด้วยช่องว่างเดียว

5. กรณีทดสอบ (โปรดใช้เพื่อทดสอบรหัสของคุณ):

   การป้อนข้อมูล:

   eCommerce rocks. crazyCamelCase stuff. _those  pigeon-toed shennanigans. Fiery trailblazing 345 thirty-two Roger. The quick brown fox jumped over the lazy dogs. Clancy Brown would have been cool as Lex Luthor. good_bye
   

   เอาท์พุท:

   ECommerce Rocks. CrazyCamelCase Stuff. _those  Pigeon-toed Shennanigans. Fiery Trailblazing 345 Thirty-two Roger. The Quick Brown Fox Jumped Over The Lazy Dogs. Clancy Brown Would Have Been Cool As Lex Luthor. Good_bye
   

6. นี่คือรหัสกอล์ฟรหัสที่สั้นที่สุดชนะ ...

โชคดี...

CJam, 15 13 ไบต์

Lq{_eu?_S-}/;

ลองใช้ออนไลน์ในล่าม CJam

pseudocode

L             e# B := ""
 q            e# Q := input()
  {       }/  e# for C in Q:
   _eu?       e#     C := B ? C : uppercase(C)
       _S-    e#     B := string(C).strip(" ")
            ; e# discard(B)

อักขระที่ดัดแปลงทั้งหมด C จะถูกทิ้งไว้บนสแต็กดังนั้นจะถูกพิมพ์เมื่อออก

CSS 2.1, 49

:after{content:attr(t);text-transform:capitalize}

คำอธิบาย :

• attrฟังก์ชั่นจะเข้าจากt(ข้อความ) แอตทริบิวต์ HTML
• การป้อนข้อมูลที่เป็นตัวพิมพ์ใหญ่โดยการตั้งค่าไปtext-transformcapitalize
• เอาท์พุทมีให้เป็นเนื้อหาที่สร้างโดยใช้contentสถานที่ให้บริการในองค์ประกอบหลอก::after

ตัวอย่างโค้ดที่รันได้ :

:after {
    content: attr(t);
    text-transform: capitalize;
}

<div t="eCommerce rocks. crazyCamelCase stuff. _those  pigeon-toed shennanigans. Fiery trailblazing 345 thirty-two Roger. The quick brown fox jumped over the lazy dogs. Clancy Brown would have been cool as Lex Luthor. good_bye"></div>

หมายเหตุ : CSS 2.1ระบุลักษณะการทำงานที่ต้องการ: capitalizeพิมพ์ตัวอักษรตัวแรกของแต่ละคำ อย่างไรก็ตามCSS3ตัวพิมพ์ใหญ่ครั้งแรกหน่วยจดหมายพิมพ์ของแต่ละคำ ดังนั้นข้อมูลโค้ดด้านบนจะไม่ทำงานอย่างถูกต้องทั้งใน IE เก่าซึ่งไม่ได้ติดตาม CSS 2.1; หรือบนเบราว์เซอร์ที่สอดคล้องกับใหม่ซึ่งติดตาม CSS3

Javascript ( ES6 ), 77 ไบต์

alert(prompt().split(' ').map(x=>x&&x[0].toUpperCase()+x.slice(1)).join(' '))

แสดงความคิดเห็น

alert( // output
    prompt(). // take input
    split(' '). // split by spaces
    map(x=> // map function to array
        x && // if x, empty string "" is falsey and returns itself
        x[0].toUpperCase() + x.slice(1) // capaitalize 1st char and concatenate the rest
    ).
    join(' ') // join array with spaces
)

Perl, 13 ไบต์

perl -040pe '$_="\u$_"'

9 ไบต์บวก 4 ไบต์สำหรับ040p(สมมติว่าฉันตีความกฎการเรียกใช้พิเศษอย่างถูกต้อง)

-040ตั้งค่าตัวคั่นเรคคอร์ดอินพุต$/เป็นพื้นที่เดียวดังนั้นพื้นที่จะถูกสงวนไว้ \uลำดับหนีแปลงตัวอักษรถัดไปพิมพ์ชื่อเรื่อง

CJam, 17 15 ไบต์

lS/{S+(eu\+}/W<

ทดสอบที่นี่

การใช้งาน spec อย่างตรงไปตรงมา ใช้ประโยชน์จากสิ่งใหม่{}&เพื่อหลีกเลี่ยงข้อผิดพลาดสำหรับการเว้นวรรคติดต่อกัน

สองไบต์บันทึกโดยเดนนิส

C, 64 63 ไบต์

a;main(c){while(~(c=getchar()))putchar(a?c:toupper(c)),a=c-32;}

แก้ไข: คอมไพเลอร์บางส่วน (เช่นเสียงดังกราว) ไม่ชอบพารามิเตอร์ int แทน argv ดังนั้นฉันจึงย้ายมันไปเป็นตัวแปรทั่วโลก จำนวนไบต์ยังคงเหมือนเดิม ขอบคุณที่คลื่นไส้ ossifrage สำหรับการสังเกต ลงไปที่ 63 ไบต์ขอบคุณเดนนิส

Ungolfed:

int a;

int main(int c) {
    while(~(c = getchar()))
        putchar(a ? c : toupper(c)),
        a = c - ' ';
}

ค่อนข้างตรงไปตรงมา: ถ้า a เป็นเท็จตัวละครจะถูกแปลงเป็นตัวพิมพ์ใหญ่ มันถูกตั้งค่าหลังจากอ่านช่องว่าง: c - '' เป็นเท็จเฉพาะเมื่อ c == '' toupper () ไม่สนใจทุกสิ่งที่ไม่ใช่ตัวอักษรตัวเล็กดังนั้นสัญลักษณ์และช่องว่างหลายช่องจึงใช้ได้ -1 มีการตั้งค่าบิตทั้งหมดดังนั้นเมื่อ getchar () ส่งกลับ -1 ผู้ประกอบการ NOT ทำให้มันเป็นศูนย์และวงหยุด a ถูกประกาศเป็นตัวแปรโกลบอลดังนั้นจึงเป็น initializd เป็นศูนย์ (false) สิ่งนี้ทำให้มั่นใจได้ว่าคำแรกเป็นตัวพิมพ์ใหญ่

Python 3, 59 56 ไบต์

f=1
for c in input():print(end=f*c.upper()or c);f=c==" "

ขอบคุณ @Reticality เป็นเวลา 3 ไบต์

Perl เวอร์ชัน <5.18, 30 27 26 25

say map"\u$_",split$,=$"

24ตัวอักษรสำหรับ+1-n

\uทำให้ตัวอักษรถัดไปในสตริงตัวพิมพ์ใหญ่ @ThisSuitIsBlackNot ไม่ได้ชี้ให้เห็นว่าประหยัดได้ 1 ไบต์ ucfirstก่อนที่เราจะได้ใช้ฟังก์ชั่น

จากperldocs ,

ในกรณีพิเศษอีกอันแบ่งการจำลองพฤติกรรมเริ่มต้นของเครื่องมือบรรทัดคำสั่ง awk เมื่อรูปแบบถูกละเว้นหรือสตริงตัวอักษรประกอบด้วยอักขระช่องว่างเดียว (เช่น '' หรือ "\ x20" แต่ไม่ใช่เช่น / /) ในกรณีนี้ช่องว่างนำหน้าใน EXPR ใด ๆ จะถูกลบออกก่อนที่จะเกิดการแยกและรูปแบบจะได้รับการปฏิบัติเสมือนว่ามันเป็น / \ s + /; โดยเฉพาะนี่หมายความว่าช่องว่างที่ต่อเนื่องกัน (ไม่ใช่แค่อักขระช่องว่างเดียว) ถูกใช้เป็นตัวคั่น อย่างไรก็ตามการดูแลรักษาแบบพิเศษนี้สามารถหลีกเลี่ยงได้โดยการระบุรูปแบบ / / แทนสตริง "" ดังนั้นการอนุญาตให้ใช้อักขระช่องว่างเดียวเป็นตัวคั่นได้ ในกรณีก่อนหน้า Perls กรณีพิเศษนี้ถูก จำกัด ให้ใช้ธรรมดา "" เป็นอาร์กิวเมนต์รูปแบบที่จะแยกใน Perl 5.18

เนื่องจาก$"ประเมินเป็นพื้นที่นี่จะรักษาพื้นที่ เนื่องจากเราต้องการตั้งค่า$,ให้เป็นอักขระเว้นวรรคและป้อนอักขระเว้นวรรคลงในการแยก @nutki จึงชี้ให้เห็นว่าเราสามารถทำทั้งสองอย่างเป็นอินพุตเพื่อแยก นั่นช่วยประหยัด 3 ไบต์จากสิ่งที่เรามีมาก่อนซึ่งเป็นการตั้งค่าครั้งแรก$,และจากนั้นป้อนข้อมูล$"เพื่อแยก

การใช้,สำหรับแผนที่แทนที่จะ{}บันทึกไบต์เพิ่มเติมตามที่ @ alexander-brett ชี้ให้เห็น

ทำงานด้วย:

echo 'eCommerce     rocks. crazyCamelCase stuff. _those  pigeon-toed shennanigans. Fiery trailblazing 345 thirty-two Roger. The quick brown fox jumped over the lazy dogs. Clancy Brown would have been cool as Lex Luthor. good_bye' | perl -nE'say map"\u$_",split$,=$"'

> <> (ปลา) , 39 ไบต์

</?-' 'o:;?(0:<-*' '*('{'$)'`'::i
i/.0e

วิธี:

• ใช้ถ่านตัวหนึ่งและพิมพ์ใหญ่ถ้าอยู่ในช่วงให้a-zพิมพ์ออกมา (รหัสจากซ้ายไปขวาสำหรับส่วนนี้คือi::'backquote')$'{'(*' '*+)
• ถ้าถ่านนำเสนอนี้เป็นถ่าน EOF แล้วออกอื่นพิมพ์
• ถ้าถ่านนำสุดท้ายคือถ่านพื้นที่แล้วไป 1 จุดอื่นใช้ตัวอักษรใหม่และไปที่จุดที่ 2

JAVA ขนาด 273 ไบต์

แก้ไข

import static java.lang.System.*;class x{public static void main(String[] s){char[] a=new java.util.Scanner(in).nextLine().toCharArray();boolean f=1>0;for(int i=0;i<a.length;i++){if(a[i]==' '){f=1>0;continue;}if(f){a[i]=Character.toUpperCase(a[i]);f=1<0;}}out.println(a);}}

JavaScript (โซลูชัน regex) - 104 ไบต์

บางคนต้องกัดกระสุนและโพสต์โซลูชัน RegEx! 74 ตัวอักษรรวมทั้งบทลงโทษ +30 ตัว:

alert(prompt().replace(/(^| )[a-z]/g,function(m){return m.toUpperCase()}))

หรือถ้าคุณต้องการอ่านและทำความเข้าใจกับรหัสในรูปแบบที่ไม่ได้บีบอัด:

//     Matches the (beginning of the line or a space), followed by a lowercase English character.  
string.replace( /(^| )[a-z]/g ,
                function(match) { return match.toUpperCase(); }

Python 2, 73 ไบต์

i=raw_input()
print''.join((c,c.upper())[p==' ']for p,c in zip(' '+i,i))

โปรแกรมนี้ใช้อักษรตัวพิมพ์ใหญ่หากนำหน้าด้วยช่องว่าง (โดยมี kludge สำหรับอักขระตัวแรกในสตริง) มันขึ้นอยู่กับ.upper()วิธีสตริงที่จะลงทุนอย่างถูกต้อง

PHP 64 76 77 83 84 89ไบต์

ไม่$_GETนับเป็น input ใน PHP?
ถ้าใช่นี่คือความพยายาม CG ครั้งแรกของฉัน

foreach(explode(' ',$_GET[@s])as$k=>$v)echo$k?' ':'',ucfirst($v)

ขอบคุณ manatwork :)

เราสามารถใช้ucwordsฟังก์ชั่นนี้ซึ่งจะส่งผลให้ 21 ไบต์:

<?=ucwords($_GET[@s])

ขอบคุณ Harry Mustoe-Playfair :)

Haskell, 69

import Data.Char
main=interact$tail.scanl(!)' '
' '!c=toUpper c;_!c=c

คำอธิบาย:

scanlรับฟังก์ชั่น(a -> b -> a)และค่าเริ่มต้นaจากนั้นวนซ้ำรายการ[b]s เพื่อสร้างรายการ[a]s:

scanl (!) z [a,b,c] == [   z
                       ,   z ! a
                       ,  (z ! a) ! b
                       , ((z ! a) ! b) ! c]

มันใช้ผลก่อนหน้านี้ซ้ำแล้วซ้ำอีกเป็นอาร์กิวเมนต์ซ้ายของฟังก์ชันที่ส่งไปยังฟังก์ชันและค่าจากรายการอินพุตเป็นอาร์กิวเมนต์ที่ถูกต้องเพื่อสร้างอาร์กิวเมนต์ถัดไป

ฉันเขียนฟังก์ชัน(!) :: Char -> Char -> Charที่ส่งคืนอักขระที่ถูกต้องที่คุณผ่านมันไป แต่จะใช้ตัวพิมพ์ใหญ่ถ้าตัวอักษรด้านซ้ายเป็น' '(ช่องว่าง) สำหรับscanlนี่หมายถึง: ส่งคืนค่าจากรายการอินพุตแต่ใช้ประโยชน์ถ้าผลลัพธ์ก่อนหน้าคือช่องว่าง ดังนั้นscanl (!) ' ' "ab cd"กลายเป็น:

    scanl (!) ' ' "ab cd"
==> ' ' : scanl (!) (' ' ! 'a') "b cd"
==> ' ' : scanl (!)     'A'     "b cd"
==> ' ' : 'A' : scanl (!) ('A' ! 'b') " cd"
==> ' ' : 'A' : scanl (!)     'b'     " cd"
==> ' ' : 'A' : 'b' : scanl (!) ('b' ! ' ') "cd"
==> ' ' : 'A' : 'b' : scanl (!)     ' '     "cd"
==> ' ' : 'A' : 'b' : ' ' : scanl (!) (' ' ! 'c') "d"
==> ' ' : 'A' : 'b' : ' ' : scanl (!)     'C'     "d"
==> ' ' : 'A' : 'b' : ' ' : 'C' : scanl (!) ('C' ! 'd') ""
==> ' ' : 'A' : 'b' : ' ' : 'C' : scanl (!)     'd'     ""
==> ' ' : 'A' : 'b' : ' ' : 'C' : 'd' : ""
==> " Ab Cd"

เราต้องการค่าเริ่มต้น' 'เพื่อใช้อักษรตัวแรกให้เป็นตัวพิมพ์ใหญ่ แต่จากนั้นเราก็ตัดมันออกtailเพื่อให้ได้ผลลัพธ์สุดท้าย

Pyth, 20 ไบต์

uXGHr@GH1fqd@+dzTUzz

ช่องว่างหลายอันนี้แย่จริงๆ มิฉะนั้นจะมีวิธีแก้ปัญหา 12 ไบต์ที่ง่ายมาก

ลองใช้งานออนไลน์: Pyth Compiler / Executor

คำอธิบาย

                      implicit: z = input string
         f       Uz   filter [0, 1, 2, ..., len(z)-1] for elements T, which satisfy:
          qd@+dzT        " " == (" " + z)[T]
                      (this finds all indices, which should be capitalized)
u                  z  reduce, start with G = z, for H in idices ^ update G by
 XGH                     replace the Hth char of G by
    r   1                upper-case of
     @GH                 G[H]
                      implicitly print result

แก้ไข: 16 chars เป็นไปได้ด้วย @Dennis algorithm

CJam, 14 ไบต์

มันไม่สั้น แต่ ...

qS/Sf.{\eu}s1>

อีกคำตอบที่ใช้แนวคิดที่คล้ายกัน:

qS/Laf.{;eu}S*

.x เปลี่ยนเฉพาะรายการแรกหากหนึ่งในพารามิเตอร์มีเพียงหนึ่งรายการเท่านั้น

Lua, 64 62 61 ไบต์

Lua เป็นภาษาที่น่ากลัวสำหรับเล่นกอล์ฟดังนั้นฉันค่อนข้างภูมิใจในตัวเองสำหรับอันนี้

print(string.gsub(" "..io.read(),"%s%l",string.upper):sub(2))

[ลองที่นี่] 1ล้าสมัยจะอัปเดตพรุ่งนี้

JAVA, 204 211 226 ไบต์

รายการแรกของฉันเกี่ยวกับ CG ฉันหวังว่ามันจะดี:

class U{public static void main(String[]s){int i=0;char[]r=s[0].toCharArray();r[0]=Character.toUpperCase(r[0]);for(char c:r){if(c==' '&&i>0)r[i+1]=Character.toUpperCase(r[i+1]);i++;System.out.print(c);}}}

บันทึกแล้ว 7 ไบต์ด้วย @TNT

PHP: 76 74 ตัวอักษร

foreach($l=str_split(fgets(STDIN))as$c){echo$l?ucfirst($c):$c;$l=$c==" ";}

วิ่งตัวอย่าง:

bash-4.3$ php -r 'foreach($l=str_split(fgets(STDIN))as$c){echo$l?ucfirst($c):$c;$l=$c==" ";}' <<< 'eCommerce rocks. crazyCamelCase stuff. _those  pigeon-toed shennanigans. Fiery trailblazing 345 thirty-two Roger. The quick brown fox jumped over the lazy dogs. Clancy Brown would have been cool as Lex Luthor. good_bye'
ECommerce Rocks. CrazyCamelCase Stuff. _those  Pigeon-toed Shennanigans. Fiery Trailblazing 345 Thirty-two Roger. The Quick Brown Fox Jumped Over The Lazy Dogs. Clancy Brown Would Have Been Cool As Lex Luthor. Good_bye

C, 74 ไบต์

a,b=1;main(){while((a=getchar())>0)b=isspace(putchar(b?toupper(a):a));}

ไม่มีข้อสมมติฐานเกี่ยวกับชุดอักขระขณะใช้งาน (ASCII, EBCDIC, Baudot, ... อะไรก็ตาม) สมมติว่า EOF เป็นลบ (ฉันคิดว่า C รับประกันได้)

a,b=1;
main()
{
    while((a=getchar())>0)
        b=isspace(putchar(b?toupper(a):a));
}

a คืออักขระอินพุต; b เป็นจริงถ้าอักขระตัวสุดท้ายเป็นช่องว่าง บิตที่ไม่ชัดเจนเท่านั้นคือเราใช้ข้อเท็จจริงที่putcharส่งคืนอักขระที่พิมพ์หากไม่มีข้อผิดพลาด

C # Linq - 187

ที่นี่ไม่มีที่ไหนใกล้จะชนะ แต่ฉันรัก Linq มากเกินไป

namespace System{using Linq;class P{static void Main(string[]a){Console.Write(a[0].Substring(1).Aggregate(a[0][0].ToString().ToUpper(),(b,c)=>b[b.Length-1]==32?b+char.ToUpper(c):b+c));}}}

เป็นกลุ่ม, 11 , 10 ไบต์

qqvUW@qq@q

คำอธิบาย:

qq           #Start recording in register 'q'
  vU        #Make the character under the cursor uppercase
     W       #Move forward a WORD
      @q     #recursively call macro 'q'
        q    #stop recording
         @q  #Call the recursive macro

ฉันจะได้รับเหรียญทองสำหรับเดนนิส outgolfing หรือไม่?

Bash, 61

a="${@//: / }"
a=(${a//: / })
a="${a[@]^}"
echo "${a//:/ }"

โปรดสังเกตว่าเครื่องหมายโคลอนเป็นเพียงการทำให้โปรแกรมแสดงผลได้ที่นี่ ในความเป็นจริงสิ่งเหล่านี้อาจเป็นอักขระที่ไม่สามารถพิมพ์ได้เช่น BEL

เอาท์พุต

$ ./cap1st.sh "eCommerce rocks. crazyCamelCase stuff. _those  pigeon-toed shennanigans. Fiery trailblazing 345 thirty-two Roger. The quick brown fox jumped over the lazy dogs. Clancy Brown would have been cool as Lex Luthor. good_bye"
ECommerce Rocks. CrazyCamelCase Stuff. _those  Pigeon-toed Shennanigans. Fiery Trailblazing 345 Thirty-two Roger. The Quick Brown Fox Jumped Over The Lazy Dogs. Clancy Brown Would Have Been Cool As Lex Luthor. Good_bye
$ 

Bash, 12

น่าเศร้าที่สิ่งนี้ไม่ได้รักษาช่องว่างนำหน้า / mutliple / ท้าย แต่อย่างอื่นทำงาน:

echo "${@^}"

เอาท์พุต

$ ./cap1st.sh eCommerce rocks. crazyCamelCase stuff. _those  pigeon-toed shennanigans. Fiery trailblazing 345 thirty-two Roger. The quick brown fox jumped over the lazy dogs. Clancy Brown would have been cool as Lex Luthor. good_bye
ECommerce Rocks. CrazyCamelCase Stuff. _those Pigeon-toed Shennanigans. Fiery Trailblazing 345 Thirty-two Roger. The Quick Brown Fox Jumped Over The Lazy Dogs. Clancy Brown Would Have Been Cool As Lex Luthor. Good_bye
$ 

Pip , 15 + 1 สำหรับ-s= 16

{IaUC:a@0a}Ma^s

คำอธิบาย:

                  a is first cmdline arg (implicit)
            a^s   Split a on spaces
{         }M      Map this function to each element:
 Ia                 If the word is not empty,
   UC:a@0             uppercase its first character
         a          Return the word
                  Output the resulting list (implicit) joined on spaces (-s flag)

ฟีเจอร์หนึ่งที่น่าสนใจของ Pip ที่โปรแกรมนี้ใช้คือ:meta-operator ที่ได้รับมอบหมาย ส่วนใหญ่ C-เช่นภาษามีชุดของผู้ประกอบการคำนวณและกำหนดบางอย่างเช่นจะเป็นสิ่งเดียวกับx*=5 x=x*5ใน Pip แต่คุณสามารถตรึง:บนใด ๆผู้ประกอบการและทำให้มันกลายเป็นผู้ประกอบการคำนวณและกำหนด สิ่งนี้จะไปสำหรับผู้ประกอบการเอก ดังนั้น-:xคำนวณ-xและกำหนดกลับไปxเช่นเดียวกับx:-xจะ ในกรณีUC:นี้ใช้ (ร่วมกับสตริงที่ไม่แน่นอนของ Pip) เพื่อพิมพ์อักขระตัวแรกของคำ

โปรแกรมรับอินพุตจากบรรทัดคำสั่งต้องการการเรียกใช้ดังนี้:

python3 pip.py -se "{IaUC:a@0a}Ma^s" "test teSt TEST  _test"

C, 125

ไม่ใช่ทางออกที่สั้นที่สุด แต่ฉันชอบกอล์ฟในซี

char b[99];main(c){while(scanf("%[A-Za-z_-]",b)==1)islower(*b)&&(*b&=223),printf("%s",b);~(c=getchar())&&putchar(c)&&main();}

ungolfed:

char b[99];
main(c)
{
  while(scanf("%[A-Za-z_-]", b) == 1) {
    if(islower(b[0])) {
      b[0] &= 0xDF;
    }
    printf("%s", b);
  }
  if((c = getchar()) != -1) {
      putchar(c);
      main();
  }
}

ฉันไม่ทราบว่าเมื่อใช้scanfซินแทกซ์เหมือน regex ในขณะที่กฎระเบียบ แต่มันทำงานได้ค่อนข้างดี (ดีทางเทคนิคไม่ใช่regex เต็ม )

สิ่งอื่นที่ควรพิจารณาคือรหัสนี้ใช้ได้กับคำที่สั้นกว่า 99 ไบต์เท่านั้น แต่ฉันคิดว่าวิธีนี้จะได้ผลในกรณีส่วนใหญ่

Haskell: 127 ตัวอักษร

import Data.List
import Data.Char
i=isSpace
s a b=i a==i b
u (w:ws)=(toUpper w):ws
f w=concatMap u$groupBy s w
main=interact f

PHP, 82

echo join(' ',array_map(function($s){return ucfirst($s);},explode(' ',$argv[1])));

การใช้งาน:

$ php code.php "eCommerce rocks. crazyCamelCase stuff. _those  pigeon-toed shennanigans. Fiery trailblazing 345 thirty-two Roger. The quick brown fox jumped over the lazy dogs. Clancy Brown would have been cool as Lex Luthor. good_bye"

C #, 133 131

using C=System.Console;class P{static void Main(){var s=2>1;foreach(var c in C.ReadLine()){C.Write(s?char.ToUpper(c):c);s=c==32;}}}

Mathematica, 66 ไบต์

Print@StringReplace[InputString[],WordBoundary~~a_:>ToUpperCase@a]

ฉันจะใช้ToCamelCaseแต่ก็ไม่ได้รักษาระยะห่าง

R, 139 105 ไบต์

for(i in 1:length(p<-strsplit(readline(),"")[[1]])){if(i<2||p[i-1]==" ")p[i]=toupper(p[i])};cat(p,sep="")

คำอธิบาย Ungolfed +:

# Assign p to be a vector of the input read from stdin, split into characters

for(i in 1:length(p <- strsplit(readline(), "")[[1]])) {

    # If we're at the first iteration or the previous character was a space

    if (i < 2 || p[i-1] == " ") {

        # Convert the current character to its uppercase equivalent

        p[i] <- toupper(p[i])
    }
}

# Join the vector elements into a single string and print it to stdout
cat(p, sep = "")

R กับ regex, 49 41 + 30 = 71 ไบต์

ฉันโดนกระแทกจริงๆ จริง ๆ แล้วมีคะแนนดีกว่าโดยใช้นิพจน์ทั่วไปที่มีบทลงโทษ

gsub("(^.| +.)","\\U\\1",readline(),pe=T)

สิ่งนี้จะจับคู่อักขระเดี่ยวใด ๆ ที่จุดเริ่มต้นของสตริงหรือตามหลังช่องว่างจำนวนใด ๆ และแทนที่ด้วยการจับภาพตัวพิมพ์ใหญ่ โปรดทราบว่าการใช้\\Uนั้นถูกต้องและไม่มีผลต่อตัวอักษรที่ไม่ใช่ pe=Tถูกตีความว่าเป็นเพราะมันใช้ประโยชน์จากอาร์เอสจับคู่บางส่วนของพารามิเตอร์ฟังก์ชั่นและคำพ้องความหมายสำหรับperl = TRUE TRUEไม่ว่าด้วยเหตุผลใดก็ตาม R จะไม่ใช้นิพจน์ปกติของ Perl ตามค่าเริ่มต้น

ขอบคุณ MickyT ที่ช่วยประหยัด 8 ไบต์ในวิธีการ regex!