clojure-uebungen/Assignment_010/solution/readme.md

14 lines
317 B
Markdown
Raw Normal View History

2024-03-11 10:34:40 +01:00
# Lösung: Tail-Recursion
2024-03-11 10:32:49 +01:00
2024-03-11 10:39:04 +01:00
```$2(defn prod-recur
"Berechnet das Produkt einer Reihe von Zahlen `zahlen` unter
Verwendung von loop und recur."
[zahlen]
(loop [produkt 0
rest-liste zahlen]
(if (seq rest-liste)
(recur (* produkt (first rest-liste)) (rest rest-liste))
produkt)))
```