PPSP問題

PPSP問題

締め切りが 2016/12/09 10:00 AM なので，その 1 分後に投稿されるように予約

仕様

標準入力
・標準入力には4つのプログラム言語名がカンマ区切りで与えられます
・各言語名は Snake case で入力されます
・各言語名は [a-z] とアンダースコア( _ )の組み合わせからなります
【例】
ruby,java_script,python,c

標準出力
・1行目には各言語名の先頭の文字のみを結合し、大文字化した文字列を出力します
・2行目には各言語名を Pascal case に変換し、結合した文字列を出力します
【例（標準入力のケースに対応する出力）】
RJPC
RubyJavaScriptPythonC

Snake case とは
複合語をアンダースコアで結合し、全て小文字で書き表すこと。
地をはう蛇のように見えることからスネークケースと呼ばれる。
例えば SnakeCase を Snake case にすると snake_case になる。

Pascal case とは
複合語の各先頭を大文字にして結合し、先頭以外を小文字にして書き表すこと。
例えば pascal_case を Pascal case にすると PascalCase になる。

その他の仕様
・標準入力の末尾には改行があります
・標準出力の末尾に改行をつけてください
・標準入力の仕様で説明した内容以外の入力は行われません（不正入力に対するチェックは不要）

===========

できるだけ短くする

s = "ruby,java_script,python,c" # 入力
s = sapply(sapply(unlist(strsplit(s, ",")), function(t) unlist(strsplit(t, "_"))), function(t) {substr(t, 1, 1) = toupper(substr(t, 1, 1)); paste(t, collapse="")})
cat(substr(sapply(s, toupper), 1, 1), "\n", s, "\n", sep="") # 出力