LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする
Posted feedbacks - Common Lisp
mc
#6903()
[
Common Lisp
]
全然短くできないですね(^^;
最初の1文字だけ大文字というのなら標準でいくつか方法があるのですが…。
最初の1文字だけ大文字というのなら標準でいくつか方法があるのですが…。
1 2 | (format()"~{~A~^ ~}"(mapcar(lambda(x)(string-capitalize x :end 1))(ppcre:split"\\s+""LL day and night")))
;=> "LL Day And Night"
|
mc
#6904()
[
Common Lisp
]
短いのは諦めるとしてちょっとひねった方法を思いついたので記念に投稿してみます。
1 2 3 4 5 | (defun cap (stream string &rest args)
(princ (string-capitalize string :end 1) stream))
(format nil "~{~/cap/~^ ~}" (ppcre:split"\\s+" "LL day and night"))
;=> "LL Day And Night"
|
kozima
#6932()
[
Common Lisp
]
これぐらいが限界かも。CLISP で動作確認しました。
ただし char< で大文字が小文字より小さいと判定されるかどうかは実装依存なので、言語仕様上は期待した動作をすることは保障されません。
1 | (defun cap(s)(map'string(lambda(a b)(if(char< a b)a b))s(string-capitalize s)))
|
takano32
#6901()
[
Ruby
]
Rating2/10=0.20
文字列に含まれる単語について、それぞれの単語の最初の文字を大文字にしてください。
たとえば、"LL future" と与えられたときは "LL Future" と出力する。"LL day and night" と与えられたときは "LL Day And Night" と出力する。
与えられる文字列はリテラルで表記する、標準入力で与えられる、引数で与えられるなどは自由とします。
余力のあるものはこのプログラムを短くしてみたり、短くしてみたり、短くしてください。
※LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、LL Futureのチケットは現在も発売中です。よろしければ、メインイベントの方にもぜひご参加ください。
see: LL Golf
Rating2/10=0.20-0+
[ reply ]