小编Lam*_*der的帖子

想象一下,任务是在clojurescript中创建一些实用程序库,以便可以从JS中使用它.

例如,假设我想生成相当于:

    var Foo = function(a, b, c){
      this.a = a;
      this.b = b;
      this.c = c;    
    }

    Foo.prototype.bar = function(x){
      return this.a + this.b + this.c + x;
    }

    var x = new Foo(1,2,3);

    x.bar(3);           //  >>  9    

实现这一目标的一种方法是:

    (deftype Foo [a b c])   

    (set! (.bar (.prototype Foo)) 
      (fn [x] 
        (this-as this
          (+ (.a this) (.b this) (.c this) x))))

    (def x (Foo. 1 2 3))

    (.bar x 3)     ; >> 9

问题:clojurescript中有更优雅/惯用的方法吗？

如何设置谷歌地图v3 InfoWindow的风格,以实现与maps.google.com相同的风格？

我正在尝试使用提示参数在运行时生成函数.

参数符号在运行时期间是已知的.

如果我事先知道它们,我可以像这样动态创建函数:

(def foo 
  (eval 
    (list 'fn '[^String a] (list '.length 'a))))

具有理想的性能:

user=> (time (reduce + (map foo (repeat 1000000 "asdf")  )))
"Elapsed time: 164.578 msecs"
4000000

而不是:

(def bar
  (eval 
    (list 'fn '[a] (list '.length 'a))))

user=> (time (reduce + (map bar (repeat 1000000 "asdf")  )))
"Elapsed time: 2392.271 msecs"
4000000

现在.我遇到的问题是如何使用动态参数列表在运行时创建这样的函数.例如:

(def baz
  (let [args '[a b]]    
    (eval
      (list 
        'fn 
        (vec (flatten (map (fn [ar] `[^String ~ar]) args))) 
        (list '.length (first args))))))
#'user/baz

user=> (time (reduce …

Clojure中是否有任何特殊的形式或功能,相当于:

(defn foo [ob col f] 
  (reduce 
     #(f %1 %2) 
     ob col))

基本上类似于doto但是在Clojure数据结构上工作而不是在可变java对象上.