使用 clojure 和 quil 进行像素转换的性能

Question

假设我想使用一个 ocr 算法。因此，我想创建一个二进制映像。使用clojure和quil，我想出了：

(defn setup []
  (load-pixels)
  (let [pxls (pixels)
             ]
    (letfn [(pxl-over-threshold? [idx] (if (> (red (aget pxls idx)) 128) true false))
            ]
           (time (dotimes [idx 25500] (aset pxls idx (color (rem idx 255)))))
           (time (dotimes [idx 25500] (if (pxl-over-threshold? idx)
                                          (aset pxls idx (color 255))
                                          (aset pxls idx (color 0)))))))
  (update-pixels))
(defn draw [])
(defsketch example
  :title "image demo"
  :setup setup
  :draw draw
  :size [255 100]
  :renderer :p2d)
;"Elapsed time: 1570.58932 msecs"
;"Elapsed time: 2781.334345 msecs" 

该代码生成灰度，然后遍历所有像素以将其设置为黑色或白色。它执行请求的行为，但大约需要 4.3 秒才能到达那里（1.3 双核）。我没有参考将 4.3 秒放在上下文中。但是考虑到处理更大的图像，这必须变得非常慢。

我是在做错事还是有办法把事情固定起来？clojure和quil的组合是否能够更快地进行像素转换，或者我应该选择不同的语言/环境？

如果我在代码中做了一些奇怪的事情，也请告诉我。我还是刚接触完洛。

提前谢谢。

Answer 1

您采取的时间并不是特别有意义，因为代码还不热。你需要"预热"代码，以便JVM对它进行JIT编译，这时你应该开始看到良好的速度。你应该看看如何在Clojure中对函数进行基准测试？（你应该使用Criterium。

至于你的代码，你使用的是数组，所以这应该能给你带来良好的性能。从风格上讲，你拥有的两个悬挂]真的很奇怪。也许这只是格式错误？尽可能多地消除重复代码通常很好，所以我也会改变这个

(if (pxl-over-threshold? idx)
  (aset pxls idx (color 255))
  (aset pxls idx (color 0)))

对此

(aset pxls idx (color (if (pxl-over-threshold? idx) 255 0)))

如果你觉得看起来太混乱/复杂（我有点担心我是否认为这太难阅读），你也可以用以下两种方式来写它：

(let [c (if (pxl-over-threshold? idx) 255 0)]
  (aset pxls idx (color c)))
(->> (if (pxl-over-threshold? idx) 255 0) color (aset pxls idx))