unfold

    5calore

    1risposta

    (defn unfold [step seed] (if-let [[val new-seed] (step seed)] (cons val (lazy-seq (unfold step new-seed))) nil)) Esempio utilizzo: (defn fib-step [[x y]] [x [y (+ x y)]]) (take 10 (u