Question

要将小数数字符串转换为小数数和小数数数转换为字符串,我如何着手写入函数?

Answer 1

此示例将数字字符串转换为数字。

(defn String->Number [str]
  (let [n (read-string str)]
       (if (number? n) n nil)))

样本 :

user=> (String->Number "4.5")
4.5
user=> (str 4.5)
"4.5"
user=> (String->Number "abc")
nil

Answer 2

从任何东西转换为字符串,从类似于数字的字符串转换为“大十进制”功能非常方便:

user=> (bigdec "1234")
1234M
user=> (str 1234M)
"1234"

我想这是阴道的金刚石法

Answer 3

注意 read-string 给您一个浮点数, 而不是小数点数 :

user=> (.getClass (read-string "1.01"))
java.lang.Double

你拿回的指纹和你想要的一样但它不是确切的说

user=> (new BigDecimal (read-string "1.01"))
1.0100000000000000088817841970012523233890533447265625M

您可以使用 java.math.BigDecimal 替代,避免浮点并发症:

user=> (new BigDecimal "1.01")
1.01M
user=> (.toString (new BigDecimal "1.01"))
"1.01"

Answer 4

从您的问题中,您似乎想要一个切换函数, 即可以读取一个数字, 转换为字符串, 也可以在字符串中读取并返回一个数字, 如果字符串包含数字数字数字, 如 123.0 或 “ 123.0 ” 。

以下是一个例子:

(defn cvt-str-num [val]
    (if (try 
            (number? val)
            (catch Exception e (str "Invalid number: " (.getMessage e))))
        (str val)
        (let [n-val (read-string val)]
            (if (number? n-val)
                n-val
                nil))))

我看不到什么方法可以绕过 nval 的绑定, 因为存储读字符串返回值需要一个临时位置, 这样它就可以被测试为一个数字。如果它是数字, 它会返回; 其它的则返回零。

友情链接