Как можно было бы идиоматично написать следующую функцию?
(split-first #"." "abc.def.ghi") ;;=>["abc", "def.ghi"]
(split-last #"." "abc.def.ghi") ;;=>["abc.def", "ghi"]
Существует очевидное (уродливое?) решение с использованием split, но я уверен, что есть более элегантные решения? Может быть, используя regexes/indexOf/split-with?
(clojure.string/split "abc.def.ghi" #"\." 2) 30.06.2015 split-last, я с радостью приму ваш ответ. 30.06.2015 Для сплит-первого лучшим подходом будет:
(defn split-first [re s]
(clojure.string/split s re 2))
(split-first #"\." "abc.def.ghi")
=> ["abc" "def.ghi"]
(split-first #"<>" "abc<>def<>ghi")
=> ["abc" "def<>ghi"]
Один из подходов к разделению в последнюю очередь состоит в использовании утверждения отрицательного просмотра вперед:
(defn split-last [re s]
(let [pattern (re-pattern (str re "(?!.*" re ")"))]
(split-first pattern s)))
(split-last #"\." "abc.def.ghi")
=> ["abc.def" "ghi"]
(split-last #"<>" "abc<>def<>ghi")
=> ["abc<>def" "ghi"]
Если вам не обязательно нужно соответствие регулярному выражению, это сработает:
(defn index-of
[^String s c]
(.indexOf s c))
(defn last-index-of
[^String s c]
(.lastIndexOf s c))
(defn split-at-index-fn
[f c s]
(let [i (f s c)]
; I do not know what you want returned if no match is found
(when-not (neg? i)
[(.substring s 0 i) (.substring s (inc i))])))
(def split-first
(partial split-at-index-fn index-of))
(def split-last
(partial split-at-index-fn last-index-of))
Это не совсем идиоматично, потому что в основном это просто взаимодействие Java.
subs вместо .substring, но не так 30.06.2015 when-not на if-not и вернув пустой вектор в блоке else. 01.07.2015 
reverse. Прямо сейчас ваше решение будет работать только для шаблонов палиндрома. 30.06.2015