SHARE
TWEET

Untitled

a guest Dec 16th, 2019 68 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.   (defn zip-chans [a b r]
  2.     (a/go-loop []
  3.       (let [av (a/<! a)
  4.             bv (a/<! b)]
  5.         (when (and (some? av) (some? bv))
  6.           (a/>! r [av bv])
  7.           (recur)
  8.           )
  9.         )
  10.       )
  11.     )
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top