clojure.core/chunk-cons

View this page on ClojureDocs

Type: function Added: Clojure unknown Examples: 2 Runnable: 1

([chunk rest])

Examples

by devn on 2015-10-04 ▶

(let [chunked-cons (-> (chunk-buffer 32) (chunk) (chunk-cons (seq (range 42))))] chunked-cons ;; => (0 1 2 3 4 5 6 7 8 9 10 ;; 11 12 13 14 15 16 17 18 ;; 19 20 21 22 23 24 25 26 ;; 27 28 29 30 31 32 33 34 ;; 35 36 37 38 39 40 41) (class chunked-cons) ;; => clojure.lang.ChunkedCons )

by reborg on 2018-04-05 . May have evaluation errors. ▶

;; byte-seq creates a lazy chunked sequence of bytes from an InputStream. ;; It takes the optimal chunk "size" to model a physical resource ;; (for a disk this would be the block size). (import '[java.io FileInputStream InputStream]) (defn byte-seq [^InputStream is size] (let [ib (byte-array size)] ((fn step [] (lazy-seq (let [n (.read is ib)] (when (not= -1 n) (let [cb (chunk-buffer size)] (dotimes [i size] (chunk-append cb (aget ib i))) (chunk-cons (chunk cb) (step)))))))))) ;; Example with a text file and block size 4096. (with-open [is (FileInputStream. "/usr/share/dict/words")] (let [bs (byte-seq is 4096)] (String. (byte-array (take 20 bs))))) ;; "A\na\naa\naal\naalii\naam"

See also

• clojure.core/chunk-buffer
• clojure.core/chunk (1)
• clojure.core/chunk-append
• clojure.core/chunk-rest
• clojure.core/chunk-next
• clojure.core/chunk-first

---

Content from the matching ClojureDocs page, with authors credited on each contribution.