どう書く？org : LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする

R doukaku.org

original page : http://ja.doukaku.org/196/

文字列に含まれる単語について、それぞれの単語の最初の文字を大文字にしてください。

たとえば、"LL future" と与えられたときは "LL Future" と出力する。"LL day and night"
と与えられたときは "LL Day And Night" と出力する。

与えられる文字列はリテラルで表記する、標準入力で与えられる、引数で与えられるなどは自由とします。

余力のあるものはこのプログラムを短くしてみたり、短くしてみたり、短くしてください。

※LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、LL
Futureのチケットは現在も発売中です。よろしければ、メインイベントの方にもぜひご参加ください。

ruby -e "p 'LL day and night'.scan(/(\w)(\w*)/).map{|a|a.shift.upcase + a.to_s}.join(' ')"

#6935

original page : http://ja.doukaku.org/comment/6935/

うーん、これで勘弁してください・・・

gsub("\\b(.)", "\\U\\1", "LL day and night", perl=TRUE)

#6910

original page : http://ja.doukaku.org/comment/6910/

Rは文字列操作が苦手です。

capword <- function(str){
  sapply(strsplit(str, " "), function(s)(paste(toupper(substring(s,1,1)), substring(s,2), sep="", collapse=" ")))
}