aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Determine-if-a-string-is-numeric/Clojure/determine-if-a-string-is-numeric-1.clj Normal file
View file

@ -0,0 +1,7 @@
(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))))

1
Task/Determine-if-a-string-is-numeric/Clojure/determine-if-a-string-is-numeric-2.clj Normal file
View file

@ -0,0 +1 @@
(numeric? [\1 \2 \3]) ;; yields logical true

11
Task/Determine-if-a-string-is-numeric/Clojure/determine-if-a-string-is-numeric-3.clj Normal file
View file

@ -0,0 +1,11 @@
(require '[clojure.edn :as edn])
(import [java.io PushbackReader StringReader])
(defn number-string? [s]
(boolean
(when (and (string? s) (re-matches #"^[+-]?\d.*" s))
(let [reader (PushbackReader. (StringReader. s))
num (try (edn/read reader) (catch Exception _ nil))]
(when num
; Check that the string has nothing after the number
(= -1 (.read reader)))))))

4
Task/Determine-if-a-string-is-numeric/Clojure/determine-if-a-string-is-numeric-4.clj Normal file
View file

@ -0,0 +1,4 @@
user=> (number-string? "2r101010")
true
user=> (number-string? "22/7")
true