|
33 | 33 | (defn- and-fn [& args] |
34 | 34 | (reduce (fn [a b] |
35 | 35 | (if b b (reduced b))) true args)) |
36 | | - |
| 36 | + |
37 | 37 | (defn- or-fn [& args] |
38 | 38 | (reduce (fn [a b] |
39 | 39 | (if b (reduced b) b)) nil args)) |
|
94 | 94 | 'pr-str pr-str, 'print-str print-str, 'println-str println-str, 'prn-str prn-str, |
95 | 95 | 're-find re-find, 're-matches re-matches, 're-seq re-seq, 're-pattern re-pattern, |
96 | 96 | '-differ? -differ?, 'get-else -get-else, 'get-some -get-some, 'missing? -missing?, 'ground identity, |
| 97 | + 'tuple vector, 'untuple identity, |
97 | 98 | 'clojure.string/blank? str/blank?, 'clojure.string/includes? str/includes?, |
98 | 99 | 'clojure.string/starts-with? str/starts-with?, 'clojure.string/ends-with? str/ends-with? |
99 | | - 'tuple vector, 'untuple identity}) |
| 100 | + 'clojure.string/lower-case str/lower-case, 'clojure.string/upper-case str/upper-case, |
| 101 | + 'clojure.string/capitalize str/capitalize, 'clojure.string/join str/join, |
| 102 | + 'clojure.string/index-of str/index-of, 'clojure.string/escape str/escape, |
| 103 | + 'clojure.string/last-index-of str/last-index-of, 'clojure.string/replace str/replace, |
| 104 | + 'clojure.string/replace-first str/replace-first, 'clojure.string/reverse str/reverse, |
| 105 | + 'clojure.string/split str/split, 'clojure.string/split-lines str/split-lines, |
| 106 | + 'clojure.string/trim str/trim, 'clojure.string/trim-newline str/trim-newline, |
| 107 | + 'clojure.string/triml str/triml, 'clojure.string/trimr str/trimr, |
| 108 | + }) |
100 | 109 |
|
101 | 110 | ;; Aggregates |
102 | 111 |
|
|
0 commit comments