2

所以我一直在 clojure 中进行基本的图像处理（只是将 rgb 转换为灰度），并且我在使用 amap 时遇到了严重的问题；也就是说，我不能让它快。

我已经能够通过类型提示将其从 21000 毫秒降低到大约 8000 毫秒，但仅此而已。相比之下，法线贴图的运行时间约为 400 毫秒……

我还能做些什么来让它像这样的简单操作一样快吗？

(defn setpxl [^BufferedImage image data]
  (let [h (.getHeight image)
    w (.getWidth image)]
  (.setRGB image 0 0 w h ^ints data 0 w)
) )

(defn getrgb [rgb]
 (let [r  (bit-shift-right (bit-and rgb (int 0x00FF0000)) 16)
    g  (bit-shift-right (bit-and rgb (int 0x0000FF00)) 8)
    b  (bit-and rgb (int 0x000000FF))]
[r g b])
)

(defn graycalc [[r g b]]
  (let [gray (int (/ (+ r g b) 3))
    r  (bit-shift-left gray 16)
    g  (bit-shift-left gray 8)
    b  gray
    a  (bit-shift-left 0x00 24)
    ]
  (int (bit-or a r g b))))

(defn testrgb []
  (let [img (time (javax.imageio.ImageIO/read (as-file "D:/cat.jpg")))
    h (.getHeight img)
    w (.getWidth img)
    arr (time (int-array (getpxl img)))
    gray (time
          ;;why is amap so slow?

          ;;400ms
          (int-array (map #(graycalc (getrgb %1)) arr))

          ;;8000ms
          ;; (amap ^ints arr idx ret (graycalc (getrgb (aget ^ints arr idx))))
          )

    frame (JFrame. "grayscale image")
    label (JLabel. (ImageIcon. img))
    panel (.getContentPane frame)]

(-> panel (.add label))
(.setSize frame w h)
(.setVisible frame true)

(time (setpxl img gray))
(.repaint panel)
)

)

4

1 回答 1

3

我必须添加一些代码来运行您的示例，所以这是开始的结果要点。

不知何故，我觉得反思开始了，因为 get 需要一些类型的帮助才能全速前进。这是一个相关的SO 线程。

使用：

 (set! *warn-on-reflection* true)

正在返回：

 Reflection warning, core.clj:46:11 - call to aset can't be resolved.

加载文件时。

事实证明，每个像素上使用的函数缺少返回类型。我们可以通过转动将类型添加到您的代码中：

 (amap ^ints arr idx ret (graycalc (getrgb (aget ^ints arr idx))))

进入：

 (amap ^ints arr idx ret ^int (graycalc (getrgb (aget ^ints arr idx))))

aset 用于数组的每个值，因此在没有类型提示的情况下，调用是在数组的每个值上使用反射。

并且速度运行变成：

 imaging.core=> (load-file "src/imaging/core.clj")
 Reflection warning, core.clj:45:11 - call to  aset can't be resolved.
 #'imaging.core/testrgb
 imaging.core=> (testrgb)
 "Elapsed time: 107.138 msecs"
 "Elapsed time: 359.448 msecs"
 "Elapsed time: 44267.634 msecs"
 "Elapsed time: 92.022 msecs"
 nil
 imaging.core=> (load-file "src/imaging/core.clj")
 #'imaging.core/testrgb
 imaging.core=> (testrgb)
 "Elapsed time: 102.871 msecs"
 "Elapsed time: 423.294 msecs"
 "Elapsed time: 1377.818 msecs"
 "Elapsed time: 88.026 msecs"

对于速度参考，地图运行在：

 "Elapsed time: 2903.577 msecs"

和 pmap 在：

 "Elapsed time: 9351.502 msecs"
于 2013-10-06T01:18:40.290 回答