gistfile1.clj

(defn linefeed? [a-char] (= (char 10) a-char))
(defn enter? [a-char] (= (char 13) a-char))
(defn in-range? [x lo hi] (<= lo x hi))
(defn interesting? [a-char] (or (linefeed? a-char)
                                (enter? a-char)
                                (in-range? (int a-char) 32 126 )))
 
(defn remove-characters
  [text]
  (filter interesting? text))