tcoupland

;; Clojure 1.5.1
=> 1
1
=> (require '[clojure.core.reducers :as r])
nil
=> (use 'clojure.repl)
nil
=> (doc r/fold)
-------------------------
clojure.core.reducers/fold

tcoupland

(defn partition-or-time
  "Returns a channel that will either contain vectors of n items taken from ch or
   if beat-rate millis elapses then a vector with the available items. The
   final vector in the return channel may be smaller than n if ch closed before
   the vector could be completely filled."
  [n ch beat-rate buf-or-n]
  (let [out (chan buf-or-n)]
    (go (loop [arr (make-array Object n)
               idx 0
               beat (timeout beat-rate)]

tcoupland

(defn one [& _] 1)

(defparallelagg counter
  :init-var one
  :combine-var +)

(defn mn
  [data]
  (<- [?mn]
      (data :> ?v)

tcoupland

(defn -bool?
  [x]
  (cond
    (boolean? x) x
    (string? x) (case x
                  ("true" "TRUE" "t" "T") true
                  ("false" "FALSE" "f" "F") false
                  :clojure.spec/invalid)
    :else :clojure.spec/invalid))

tcoupland

Keybase proof

I hereby claim:

• I am mantree on github.
• I am tcoupland (https://keybase.io/tcoupland) on keybase.
• I have a public key ASDGaJd7dxtJb62pe1CwOnD7mQzfYyleZyZ9F3xE5mi9Rwo

To claim this, I am signing this object: