Quick actions

cmd+k|ctrl+k

Navigation

Languages

streams

Snippet info

Language

Clojure

Visibility

public

Author

mjg.py3

Created

2017-05-30T03:32:17Z

Updated

2017-05-30T03:32:17Z

(defn forever [value]
    (list value (fn [] (forever value))))

(defn stream-map [f stream]
    (list (f (first stream)) (fn [] (stream-map f ((last stream))))))

(defn stream-take [n stream]
    (if (= n 0)
        '()
        (cons (first stream) (stream-take (dec n) ((last stream))))))


(println (stream-take 10 (stream-map inc (forever 42))))
INFO