RosettaCodeData/Task/Determine-if-a-string-is-numeric/Clojure/determine-if-a-string-is-numeric-1.clj

(defn numeric? [s]
  (if-let [s (seq s)]
    (let [s (if (= (first s) \-) (next s) s)
          s (drop-while #(Character/isDigit %) s)
          s (if (= (first s) \.) (next s) s)
          s (drop-while #(Character/isDigit %) s)]
      (empty? s))))