2024-03-11 10:34:40 +01:00
|
|
|
# Lösung: mapping und cycle
|
2024-03-11 10:32:49 +01:00
|
|
|
|
2024-03-11 10:39:04 +01:00
|
|
|
|
|
|
|
|
```$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))))
|
|
|
|
|
|
|
|
|
|
```
|
