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

【问题标题】：Performance of pixel transformation using clojure and quil使用 clojure 和 quil 进行像素转换的性能
【发布时间】：2013-09-18 00:05:08
【问题描述】：

假设我想编写一个 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 的组合甚至能够更快地进行像素转换，还是我应该选择不同的语言/环境？

如果我在代码中做了一些奇怪的事情，也请告诉我。我还是 clojure 的新手。

提前致谢。

【问题讨论】：

标签： clojure quil

【解决方案1】：

您所采用的时间并不是特别有意义，因为代码还没有升温。您需要“预热”代码，以便 JVM 对其进行 JIT 编译，这时您应该开始看到良好的速度。你应该看看How to benchmark functions in 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))

【讨论】：