Jared314

(ns async1
  (:require [clojure.core.async :as async]))

(defn alice [c]
  (async/>!! c "Carol Carolson's House @ 10pm"))

(defn bob [c]
  (async/go (println "Bob received: " (async/<! c))))

(let [phonenumber-555-555-9292 (async/chan)]

Jared314

(ns async2
  (:require [clojure.core.async :as async]
            [clojure.core.async.lab :as lab]))

(defn make-fb-group [& members]
  (apply lab/broadcast members))

(defn alice [c]
  (async/>!! c "Dave Davenson's House @ 10pm"))

Jared314

(ns async3
  (:require [clojure.core.async :as async]))
 
(defn alice [c message]
  (async/>!! c message))

(defn person [name c]
  (async/go 
   (let [message (async/<! c)]
     (println name " received: " message)

Jared314

(ns async4
  (:require [clojure.core.async :as async]
            [clojure.core.async.lab :as lab]))

(defn inmate [name c]
  (async/go 
   (async/<! c)
   (println name " released")))

(def alice (partial inmate "Alice"))

Jared314

(ns ohm
  (:require [clojure.string :as string]
            [clojure.java.io :refer [as-file]])
  (:import [java.io File]))


(defrecord Leaf [nss declares fns])

(defn parse-value [value]
      value)

Jared314

(ns gitter.TreeIterator
  (:import [org.eclipse.jgit.lib Repository FileMode]
           [org.eclipse.jgit.treewalk WorkingTreeIterator WorkingTreeIterator$Entry WorkingTreeOptions]
           [java.io ByteArrayInputStream])
  (:gen-class :extends org.eclipse.jgit.treewalk.WorkingTreeIterator
              :init init2
              :post-init postinit
              :state state
              :constructors {[org.eclipse.jgit.lib.Repository Object] [org.eclipse.jgit.treewalk.WorkingTreeOptions]
                             [org.eclipse.jgit.lib.Repository Object org.eclipse.jgit.treewalk.WorkingTreeIterator] [org.eclipse.jgit.treewalk.WorkingTreeIterator]}))

Jared314

(require '[net.cgrand.enlive-html :as e])

(defn gen-transform [target]
  [[(cond
     (string? target) e/text-node
     (map? target) (:tag target)
     :else e/any-node)]
   #(when (not= target %) %)])

(defn remove-node [coll & nodes]

Jared314

(ns stuff
  (:require [instaparse.core :as insta]
            [clojure.walk :as walk]))
 
(defn hiccup->sexp [sym-ns data]
  (let [sym-ns-fn #(symbol sym-ns %)]
    (walk/postwalk (fn [x] (if (and (vector? x) (keyword? (first x)))
                               (conj (rest x) (-> x first name sym-ns-fn))
                               x))
                   data)))

Jared314

(def data (str "37900490610897696126265185408732594047834333441947"
               "01850393807417064181700348379116686008018966949867"
               "75587222482716536850061657037580780205386629145841"
               "06964490601037178417735301109842904952970798120105"
               "47016802197685547844962006690576894353336688823830"
               "22913337214734911490555218134123051689058329294117"
               "83011983450277211542535458190375258738804563705619"
               "55277740874464155295278944953199015261800156422805"
               "72771774460964310684699893055144451845092626359982"
               "79063901081322647763278370447051079759349248247518"))

Jared314

(ns markov-chain
  (:require [clojure.string :as string]))

(defn simple-weighted-rand-nth [m]
  (let [ks (keys m)
        vs (map m ks) ; Ensure map value ordering
        ranges (reductions + vs)
        x (rand-int (last ranges))
        i (count (take-while #(<= % x) ranges))
        k (nth ks i)]