8 lines
252 B
Clojure
8 lines
252 B
Clojure
|
(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))))
|