Question

我正在尝试将Java Apache Maths 3包装到Clojure中，但我遇到了一个我不明白的问题。

这是javadoc：

http://commons.apache.org/proper/commons-math/javadocs/api-3.3/index.html

方法addValue向对象添加值但返回void。我想这个对象里面有一些内部数据。

在Java中，我会这样做：

regression.addValue(1,2);

我在Clojure中定义了函数来包装它：

;;----------Simple regression object builder----------

(defn simple-regression []
  (SimpleRegression.))

;;----------Add points----------

(defn add-point
  ([reg [x y]]
   (.addData reg (double x) (double y)))
  ([reg x y]
   (.addData reg (double x) (double y))))

(defn add-points
  ([data reg]
   (let [x (data :x)
         y (data :y)
         d (zipmap x y)]
     (map (fn [[k v]] (add-point reg k v)) d)))
  ([x y reg]
   (let [d (zipmap x y)]
     (map (fn [[k v]] (add-point reg k v)) d))))

当我在repl中单独使用它时，这些功能正常工作。

然后我定义了一个完整的包装器：

(defn lin-reg 
  ([data & {:keys [type] :or {type "simple"}}]
   (let [reg (simple-regression)]
     (do (add-points data reg)
         (cond (= type "simple")
                 [(.getSlope reg) (.getIntercept reg)]
               (= type "extended")
                {:params [(.getSlope reg) (.getIntercept reg)] :r (.getR reg) :r2 (.getRSquare reg) :significance (.getSignificance reg)}
               (= type "full")
                {:params [(.getSlope reg) (.getIntercept reg)] :r (.getR reg) :r2 (.getRSquare reg) :significance (.getSignificance reg) 
                 :conf-intervals [(.getSlopeConfidenceInterval reg) (.getInterceptConfidenceInterval reg)] :params-sse [(.getSlopeStdErr reg) (.getInterceptStdErr reg)] 
                 :sse (.getSumSquaredErrors reg) :ssto (.getTotalSumSquares reg) :ssm (.getRegressionSumSquares reg) :cross-products-sum (.getSumOfCrossProducts reg)}
               :else
                 (println "regression type can only be : simple, extended or full"))))))

代码不起作用（返回[NaN NaN]以便表示尚未添加值），在我尝试时确认（.getN reg）= 0 如果我单独尝试，我的意思是第一次

(def reg (simple-regression))
(add-points {:x [1 2 3] :y [0.1 0.2 0.3]} reg)
[(.getSlope reg) (.getIntercept reg)]

没问题，一切正常。

但是在功能里面，没有。我尝试了很多版本，一个带有

_ (add-points data reg)

我的印象是在函数内部，不添加点。如果我复制粘贴do，则相同。

是否存在一种更常见的Java机制，我错过了对象无法在函数内部更改？感谢

Answer 1

map和zipmap是懒惰的，所以当您在do中使用它们时，不要求它们返回实际值或强制它们（使用doall或{{ 1}}）所以所有元素都被实现并且所有副作用都发生了（例如调用dorun是改变某些状态的副作用）你传递给.addData的函数根本不会被调用。在REPL中使用这些函数时，结果打印将尝试渲染map操作的结果，从而实现惰性seq。

如果您不需要map的实际结果，但只想要应用副作用，则可能需要使用map。

Clojure和Java interop：返回void的函数

1 个答案: