clojure循環變量賦值返回一個向量

Question

我的問題是...什麼是更新currentRow nextRow bitPosition 的值每次（recur [currentRow nextRow bitPosition]））執行的好方法。現在我正在爲這樣一個事實而苦苦掙扎，即我不能在clojure中這樣做簡單的事情。相反，我被困在這個痛苦的世界裏，我甚至無法弄清楚如何在循環中設置一個變量爲一個新值。

//我希望我可以做到這一點

currentRow =(get myVector 0) 

//這裏我的代碼

(loop [myVector []] 
     (let [ 
      rule ruleParam 
      currentRow currentRowParam 
      nextRow 2r0 
      bitPosition 2r0 
      ] 

    (when (bit-test rule (bit-and currentRow 2r111)) 
     (
      (bit-shift-right currentRow 1) 
      (bit-set nextRow 1) 
      (inc bitPosition) 
    )) 
    (when (= false (bit-test rule (bit-and currentRow 2r111))) 
     (bit-shift-right currentRow 1) 
     (bit-set nextRow 1) 
     (inc bitPosition) 
    ) 
    (recur [currentRow nextRow bitPosition])) 

    )) 

解決我的問題。感謝您的指導。

(defn firstFunc [[rule currentRowParam]] 
    (let [currentRowLocal (bit-shift-left currentRowParam 1) nextRowLocal 2r0 bitPositionLocal 0] 

    (loop [currentRow currentRowLocal nextRow nextRowLocal bitPosition bitPositionLocal] 

    (if (< bitPosition 31) 
    (if (bit-test rule (bit-and currentRow 2r111)) 
    (recur 
     (bit-shift-right currentRow 1) 
     (bit-set nextRow bitPosition) 
     (inc bitPosition) 
    );end recur 
    (recur 
     (bit-shift-right currentRow 1) 
     nextRow 
     (inc bitPosition) 
    );end recur 
) 
    ;else 
    nextRow);end if (< bitPosition 31) 
);end loop 
);end let 
);end defn firstFunc 


(firstFunc2 [2r1110 2r11]) 

Answer 1

簡短的回答是，你不能。

• 當地的「變量」僅在數學意義上是可變的：你可以考慮 時，他們採取不同的價值觀是什麼明證，但你不能值分配給他們。
• 功能不改變當地人。

例如，你有

(bit-shift-right currentRow 1) 
    (bit-set nextRow 1) 
    (inc bitPosition) 

這些表達式什麼也不做。讓我們第一個

 (bit-shift-right currentRow 1) 

這回報的currentRow位移1.右它不會改變currentRow值。由於你對返回的值沒有做任何事情，它被遺忘了。

要使用函數的返回值，你可以recur到loop，這僅僅是一個let可以recur到。

如果我們據此重新塑造你的代碼中，我們得到類似

(loop [myVector []] 
    (loop [rule ruleParam 
     currentRow currentRowParam 
     nextRow 2r0 
     bitPosition 2r0] 
    (if (bit-test rule (bit-and currentRow 2r111)) 
     (recur 
     rule 
     (bit-shift-right currentRow 1) 
     (bit-set nextRow 1) 
     (inc bitPosition)) 
     (recur 
     rule 
     (bit-shift-right currentRow 1) 
     (bit-set nextRow 1) 
     (inc bitPosition))) 
    (recur rule currentRow nextRow bitPosition))) 

...其中互補if條件已經省略。

這仍然是無稽之談。

• 所有在loop最終表達式是recur秒 - 所以你永遠 逃避它。
• 最後的recur永遠不會到達，因爲其中一個上面的 總是制定。

---

您可能會發現在4Clojure幫助更容易的問題，你去用語言交手。