ClojureScript 地图查找速度慢

我有一个简单的地图：

(def my-map
  {[1 2 3] 1
   [1 2 4] 5
   [3 4 2] 3
   [4 5 3] 3
   [5 2 5] 6
   [9 2 1] 5
   [8 3 1] 6})

我用来执行查找的。然而，这表现得相当差：

(time (doseq [x (range 500)]
        (my-map [1 2 8])))

"Elapsed time: 170 msecs"

在同一台机器上，Clojure 可以在大约 236 毫秒内完成 500,000 次，或者说快了大约 700 倍。虽然 Clojure 比 ClojureScript 更快并不出人意料，但我很困惑为什么 ClojureScript 会慢这么多。

关于如何在 ClojureScript 中高效且以可读的方式制作一个简单的多值查找映射，有什么想法吗？我知道做一堆ifs 而不是使用矢量密钥解决方案肯定会工作得更快，但我正在寻找更具可读性/可维护性的东西。

只是为了更新更多信息。以上是在 Firefox 中完成的，因此比 V8 慢。下列：

(def my-map2
  (into cljs.core.PersistentHashMap/EMPTY
        {[1 2 3] 1
         [1 2 4] 5
         [3 4 2] 3
         [4 5 3] 3
         [5 2 5] 6
         [9 2 1] 5
         [8 3 1] 6}))

(defn p1 []
  (let [v [1 2 8]]
    (dotimes [_ 5]
      (time (dotimes [_ 500000]
              (get my-map2 v))))))

gives:

"Elapsed time: 3295 msecs"

"Elapsed time: 3246 msecs"

"Elapsed time: 3113 msecs"

"Elapsed time: 3107 msecs"

"Elapsed time: 3121 msecs"

在 Chromium 版本 25.0.1364.160 Ubuntu 13.04 (25.0.1364.160-0ubuntu3) 中。因此，ClojureScript 仍然比 Clojure 慢 13 倍左右，但这比以前好得多。另请注意，我直接在浏览器 repl 中运行它。

在我的机器上，使用高级编译运行您的确切示例大约需要 14 毫秒，而我的 1.7ghz Macbook Air 运行的是从源代码构建的相对较新的 v8。

为了确保我们对我们认为我们正在进行的基准测试进行了基准测试，最好编写如下内容：

(let [v [1 2 8]]
  (dotimes [_ 5]
    (time
      (dotimes [_ 500000]
        (get my-map v)))))

在我的机器上，Clojure JVM 大约需要 70 毫秒。 ClojureScript 运行大约 3600 毫秒，速度慢了大约 50 倍。为什么？这是因为我们默认使用 PersistentArrayMap，而 Clojure 则没有defining具有复杂键的小型哈希映射。

如果我们像这样定义 my-map 会发生什么：

(def my-map
  (into cljs.core.PersistentHashMap/Empty
    [[1 2 3] 1
     [1 2 4] 5
     [3 4 2] 3
     [4 5 3] 3
     [5 2 5] 6
     [9 2 1] 5
     [8 3 1] 6]))

基准测试大约需要 170 毫秒，与 Clojure JVM 相差不远。

因此，Clojure 确实实现了很多我们还没有进行的优化。尽管如此，我还是想说，对于惯用的 Clojure 代码，我认为我们在像 V8 这样高度调优的 JavaScript 引擎上所能期望的最好结果是 Clojure JVM 的 2-10 倍。