koguro #6940(2008/08/03 07:02 GMT) [ Scheme ] Rating22/26=0.85
標準入力で与えた文字列を変換して標準出力に返します。
実行例:
% gosh capitalize.scm LL day and night LL Day And Night
Lisp は Golf に向かないのですが、頑張って1文字にしてみました(遠くから見てください)。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
(letrec ((a(#0= lambda( c)(cond #1=((memv c'(#\tab #\return #\newline #\space))#2= (#3=write-char c)b)(else #2#a)))) (b(#0#(c)( |cond|#1# ((<= 97(#4= char->ucs c)122)(#3# (ucs->char (-(#4#c)32) ))a)(else #2#a)))))( port-fold( #0#(|c|p)(p|c|) )|b|read-char))
Rating22/26=0.85-0+
[ reply ]
koguro #6940() [ Scheme ] Rating22/26=0.85
標準入力で与えた文字列を変換して標準出力に返します。
実行例:
Lisp は Golf に向かないのですが、頑張って1文字にしてみました(遠くから見てください)。
Rating22/26=0.85-0+
[ reply ]