14 lines
317 B
Markdown
14 lines
317 B
Markdown
# Lösung: Tail-Recursion
|
|
|
|
|
|
```$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)))
|
|
|
|
``` |