12 lines
298 B
Markdown
12 lines
298 B
Markdown
# Lösung: mapping und cycle
|
|
|
|
|
|
```$2(defn map-cycle
|
|
"Erzeugt eine unendliche Sequenz der Zahlen `zahlen`
|
|
und berechnet für jede Zahl deren Doppeltes und zieht dann
|
|
1 ab. Vom Ergebnis werden `n` Elemente zurück
|
|
gegeben."
|
|
[n & zahlen]
|
|
(take n (map #(dec (* % 2)) (cycle zahlen))))
|
|
|
|
``` |