Clojure - идиоматический способ записи split-first и split-last

Question

Каким будет идиоматический способ написания следующей функции?

(split-first #"." "abc.def.ghi") ;;=>["abc", "def.ghi"] 
(split-last #"." "abc.def.ghi") ;;=>["abc.def", "ghi"] 

Существует очевидное (некрасиво?) Решение с использованием split, но я уверен, что есть более элегантные решения? Может быть, с помощью regexes/indexOf/split-with?

Answer 1

Для сплит-первых, лучший подход был бы:

(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"] 

Answer 2

Если вы не обязательно должны регулярному_выражению Соответствующее это будет работать:

(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-взаимодействие.