Guest User

Untitled

a guest
Jan 22nd, 2018
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. (def
  2. m-seq
  3. (.withMeta
  4. (clojure.core/fn
  5. m-seq
  6. ([table] (m-seq 1000 table))
  7. ([batch-size table]
  8. (flatten
  9. (take-while
  10. (fn* [p1__5412#] (> (count p1__5412#) 0))
  11. (map
  12. (fn
  13. [offset]
  14. @(-> table (cql/drop offset) (cql/take batch-size)))
  15. (iterate (partial + batch-size) 0))))))
  16. (.meta #'m-seq)))
Add Comment
Please, Sign In to add comment