小编jch*_*eat的帖子

Clojure的let比Common Lisp更简洁,括号更少:

 ;Clojure
(let [a 1 b 2]
     (+ a b))


;Common Lisp
(let ( (a 1) (b 2))
    (+ a b))

你如何在Common Lisp中编写一个宏来等效？:

(letmac ( a 1 b 2)
    (+ a b))

在Clojure中,我希望能够将一组中的所有数字相乘并将它们全部添加到一个新的集合中以返回.

=>(multiply-all #{ 1 2 3})

#{1 4 6 3 2 9}

这是我的实现:

(defn multiply-all [num-set]
  (loop [new-set num-set
         cur-set num-set]
       (if (= 0 (count cur-set))  new-set
       (recur (into new-set (map #(* (first cur-set) %) num-set)) (rest cur-set)))))

有没有办法使用doseq而不使用瞬态来做到这一点.像这样的东西:

(let [s #{ 1 2 3}]
 (doseq [outer s]
   (doseq [inner s]
     (let [multiplied (* outer inner)]
      (println (conj s multiplied))
      ))))

我对任何有关更清洁方式的建议感兴趣.

---编辑----这是使用reduce的另一种方式:

(defn multiply-all2 [num-set]
  (let [step (fn [[ result ] mult]
           [(into result (map #(* mult %) num-set))])] …