Clojure 中将字符串转换为整数向量的功能解决方案

Question

我已经在 Clojure 中成功编写了一个函数，该函数将空格分隔的整数字符串转换为整数向量，但由于我对函数式语言（非常）陌生，我担心我仍然在程序上思考太多。

该函数使用split 对字符串进行标记，然后遍历返回的向量，分别将标记转换为整数，然后将它们附加到新向量。我使用 read-string 是因为输入是自己提供的，我并不真正关心安全性。

    (defn parser [myStr]
        ;;counter
        (def i 0)
        ;;tokenizes string and returns vector of tokens
        (def buffer (clojure.string/split myStr #"\s"))
        ;;reads vector of strings as integers then appends them to a new vector x
        (def x (vector-of :int))
        (while ( < i (count buffer))
            (def x (conj x (read-string (nth buffer i)))) 
            (def i (inc i)))
        (println x))

我的代码有效，但我担心通过更改状态和迭代缓冲区向量，我有点作弊并坚持我的程序根源。

有没有更优雅或更实用的方法来解决这个问题？

Answer 1

这里有一些非常值得注意的事情：

• 切勿在defn 中使用def，除非您有非常好的理由。这里的用例是不合理的。只需改用let：

  (defn parser [myStr]
    (let [i 0
          buffer (clojure.string/split myStr #"\s")
          x (vector-of :int)]
       ...)
  

  要查看有什么区别，请运行您的函数，然后检查 i 的内容。 def 创建在函数退出后仍然存在的全局变量，这会泄漏函数的状态并污染命名空间。

• 您正在使用read-string 进行解析。不要那样做。只需使用 Java 的Long/parseLong。 read-string 具有 eval 行为，这永远不会被滥用。 您还可以使用clojure.edn/read-string，它可以读取 Clojure 结构和文字，但不执行代码。

• 当你真的可以使用loop 或许多其他功能方法时，你正在使用while 来执行副作用。 @xs0 基本上是正确的。我会把你的函数写成：

  (defn parser [myStr]
    ; The v in mapv means it returns a vector
    ; Just map returns a lazy seq
    (mapv #(Long/parseLong %) (clojure.string/split myStr #"\s"))
  

  不幸的是，Long/parseLong 需要包装在一个函数中，因为 Java 互操作方法不能像普通 Clojure 函数那样使用。

  Long/parseLong 只有在您可以保证split 返回的每个标记都是可解析的情况下才能安全使用。当然，如果没有这样的保证，你需要做一些错误处理，或者在尝试解析之前清理输入。