pbostrom

(defn primes3 [max]
  (let [enqueue (fn [sieve n factor]
                  (let [m (+ n (+ factor factor))]
                    (if (sieve m)
                      (recur sieve m factor)
                      (assoc sieve m factor))))
        next-sieve (fn [sieve candidate]
                     (if-let [factor (sieve candidate)]
                       (-> sieve
                         (dissoc candidate)

pbostrom

(def x (ref 0))
(def a (agent nil))

(defn alter-and-send-side-effects
  "Alters refs then sends println actions to agent with new values"
  []
 (dosync
   (let [newx (alter x inc)])
   (send a (fn [_] (println "x is" newx)))))

pbostrom

(let [q (ref []), x (ref 0)]
  (defn run-side-effects [_]
    (let [fs (dosync
              (let [q' @q]
                (ref-set q [])
                q'))]
      (doseq [f fs] (f))))

  (defn alter-and-order-side-effects []
    (dosync

pbostrom

(defn hello [x]
  (println "Hello" x))

(hello "name")

pbostrom

(require '[clojure.core.logic :refer :all])
(require '[clojure.core.logic.fd :as fd])

(defn sumo
  ([l n] (sumo l 0 n))
  ([l acc n]
     (matche [l]
       ([[]] (fd/== acc n))
       ([[x . r]]
          (fresh [nacc]

pbostrom

(require '[clojure.core.logic :refer :all])
(require '[clojure.tools.macro :as macro])

(defne righto [x y l]
  ([_ _ [x y . ?r]])
  ([_ _ [_ . ?r]] (righto x y ?r)))

(defn nexto [x y l]
  (conde
    ((righto x y l))

pbostrom

;; works with core.logic 0.8.4
(require '[clojure.core.logic :refer :all])
(require '[clojure.core.logic.fd :as fd])

(defn get-square [rows x y]
  (for [x (range x (+ x 3))
        y (range y (+ y 3))]
    (get-in rows [x y])))

(defn init [vars hints]

pbostrom

(defn lame[])

pbostrom

(def m
  [{:home "Manchester United" :away "Manchester City" :home_score 1 :away_score 0}
   {:home "Manchester United" :away "Manchester City" :home_score 2 :away_score 0}
   {:home "Manchester City" :away "Arsenal" :home_score 1 :away_score 1}])
 
(def teams
  {"Manchester United" {:points 1200}
   "Manchester City" {:points 1200}
   "Arsenal" {:points 1200}})

pbostrom

(add-hook 'js-mode-hook
  (lambda ()
    (paredit-mode 1)
    (local-set-key "{" 'paredit-open-curly)
    (local-set-key "}" 'paredit-close-curly)
    (local-set-key "\M-{" 'paredit-wrap-curly)
    (local-set-key "\M-}" 'paredit-close-curly-and-newline)
    (local-set-key "\M-[" 'paredit-wrap-square)
    (local-set-key "\M-]" 'paredit-close-square-and-newline)))