Jak stwierdzić, czy znak jest wielką literą ASCII w Clojure

Question

Mam nast takiego:

(\$ \# \A \(\* \& \9 \8 \7 \Z \f) 

chcę odfiltrować wielkie litery ASCII w nim jak \ A i \ Z

Próbowałem sprawdzić w standardowej bibliotece, ale bez powodzenia.

Czy ktoś może mi pomóc?

Answer 1

użyć następujących

(filter #(Character/isUpperCase %) `(\$ \# \A \(\* \& \9 \8 \7 \Z \f)) 

Wyniki: (\A \Z)

Answer 2

Jest to bardziej rozwlekły, ale można również zdefiniować własną funkcję, aby to zrobić:

(defn cap-detector [x] (loop [res [] arg (apply str x)] (cond (empty? arg) (filter (fn [x] (Character/isLetter x)) res) :else (if (= (clojure.string/upper-case (first arg)) (str (first arg))) (recur (conj res (first arg)) (rest arg)) (recur res (rest arg))))))

i wywołać cap-detector z twoją sekwencją znaków da ci to, co chcesz:

(cap-detector '(\$ \# \A \(\* \& \9 \8 \7 \Z \f)) => (\ A \ Z)

Answer 3

Albo można też użyć re-seq i wyrażeń regularnych:

((fn [x] (seq (apply str (re-seq #"[A-Z]" (apply str x))))) '(\$ \# \A \(\* \& \9 \8 \7 \Z \f))

co również zwraca (\A \Z).

Answer 4

Moje rozwiązanie:

(filter (set (map char (range 65 91))) 
     '(\$ \# \A \(\* \& \9 \8 \7 \Z \f)) 

Powroty:

'(\A \Z)