如何在Clojure中执行for循环

Question

我正在学习自己一些Clojure和我使用Quil。我想知道如何将for循环翻译成Clojure:

在Java或类似的语言中我是这样做的:

for ( int i = 0; i < numSides; i++ ) {
    float posX = cos( theta * i );
    float posY = sin( theta * i );
    ellipse( posX, posY, polySize, polySize );
}

My Clojure attempt:

  (let [theta (/ PI num-sides)
        angle (range 0 num-sides)
        pos-x (cos (* theta angle))
        pos-y (sin (* theta angle))]
    (dorun (map #(ellipse % % % %) pos-x pos-y poly-size poly-size)))

Answer 1

你所寻找的所有方法基本上都是与序列一起工作，而循环是关于执行特定次数的事情。Clojure提供dotimes来执行某些次数的操作:

(dotimes [i 10]
  (println i))

那么你的代码就变成了这样:

 (dotimes [i num-sides]
   (let [pos-x (cos (* theta i))
         pos-y (sin (* theta i))]
         (ellipse pos-x pos-y poly-size poly-size)))

Answer 2

如果你真的想要一个c风格的for循环，那么我的clojul -utils库有一个方便的for循环宏，让你做这样的事情:

(for-loop [i 0 , (< i num-sides) , (inc i)]
  ... do stuff.....)

然而，通常情况下，我会发现自己使用以下其中一个:

• (dotimes [i num-sides] ....) -做某件事的特定次数
• (doseq [x some-sequence] ....) -为序列中的每个元素做一些事情
• (for [i (range n)] ...) -构建n个元素的list

Answer 3

也许这有点学术性，但是我喜欢使用Clojure的"for comprehension "来处理这类事情。代码看起来像这样:

(dorun
  (for [i (range num-sides)
        :let [pos-x (Math/cos (* i theta))
              pos-y (Math/sin (* i theta))]]
    (quil.core/ellipse pos-x pos-y poly-size poly-size)))

Answer 4

Doseq with range通常适用于循环特定数量的值，以产生副作用。我将按如下方式实现你的循环:

(doseq [i (range 0 num-sides)]
  (ellipse (cos (* theta i)) 
           (sin (* theta i)) 
           poly-size 
           poly-size))