Faktorisches iteratives ungültiges Argument - clojure

Question

(defn fac [n] 
     (def result 1) 
     (loop [i n c 1] 
     (if (<= c 5) 
      result 
      (recur (* c i) (inc c)) 
     ) 
     ) 
     (println result) 
    ) 

    (fac 5) 

Fehler: Ausnahme im Thread "main" java.lang.IllegalArgumentException: Schleife benötigt einen Vektor für seine Bindung.

Ich versuche eine Funktion zu schreiben, die eine faktorielle Zahl auswertet. Wo ist mein Fehler? Es gibt mir 1 als Antwort

Answer 1

Auf den ersten Blick:

• Sie kein def in einem defn verwenden.
• Die REPL wird das Ergebnis der Auswertung einer Funktion ausgeben. Benutze es.

Dies bringt uns zu

(defn fac [n] 
    (loop [i n c 1] 
    (if (<= c 5) 
     result 
     (recur (* c i) (inc c))))) 

..., die nicht kompiliert, da result schwimmt.

Es gibt ein paar Korrekturen erforderlich:

• Return i, nicht result.
• Start i bei 1, nicht n.
• Drehen Sie den Test um: > anstelle von <=.

Wir am Ende mit

(defn fac [n] 
    (loop [i 1, c 1] 
    (if (> c n) 
     i 
     (recur (* c i) (inc c))))) 

... das funktioniert:

(fac 5) 
=> 120 

---

Edited Einmal Fehler zu korrigieren und eine Erklärung zu verbessern.