mc #6904(2008/08/02 21:17 GMT) [ Common Lisp ] Rating0/0=0.00
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"
Rating0/0=0.00-0+
[ reply ]
mc
#6904()
[
Common Lisp
]
Rating0/0=0.00
(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"Rating0/0=0.00-0+
[ reply ]