my try :
;;; *** application code ***
;;; (my-capitalize "ab c") -> "Ab C"
;;; (my-capitalize "ab") -> "Ab"
;;; (my-capitalize "") -> ""
;;; (def s "ab c")
(defn my-capitalize [s]
(words->string (map capitalize (string->words s))) )
;;; *** libraries code ***
;;; (string->words "") -> []
;;; (string->words "ab") -> ["ab"]
;;; (string->words "ab c") -> ["ab" "c"]
(defn string->words [s]
(if (.isEmpty s)
[]
(.split s " ") ))
;;; (capitalize "ab") -> "Ab"
;;; (capitalize "c") -> "C"
;;; (capitalize "") -> ""
;;; (def s "ab")
(defn capitalize [s]
(if (.isEmpty s)
""
(str (.toUpperCase (.substring s 0 1))
(.toLowerCase (.substring s 1)) )))
;;; (words->string '("A" "Bc")) -> "A Bc"
;;; (words->string '()) -> ""
(defn words->string [words]
(apply str (interpose " " words)) )
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
