tonsky

;; I have this

(def routes ["/" [["" :ui/index]
                  ["api/query" :api/query]
                  ["api/data-init" :api/data-init]]])

;; And I want to make api/data-init only accesible through POST
;; I tried

(def routes ["/" [["" :ui/index]

tonsky

(let [a 1, a  2,  a 3]
  (and (= a 1) (= a  2) (=  a 3)))

tonsky

(defn bench-btset []
  (doseq [distinct    [:distinct :duplicates]
          size        [20000]
          [tn target] [["sorted-set" (sorted-set)]
                       ["btset"      (btset/btset)]
                       ["vector"     []]]
          :let [range          (if (= :distinct distinct)
                                 (shuffle (range size))
                                 (repeatedly size #(rand-int size)))
                shuffled-range (shuffle range)

tonsky

(defn digits [x]
  (loop [r x, digits []]
    (if (== 0 r)
      digits
      (recur (quot r 10) (conj digits (rem r 10))))))

(defn double-odd-digits [digits]
  (map-indexed (fn [i d] (if (odd? i) (* 2 d) d)) digits))

(defn valid? [x]

tonsky

(defn quick-benchmark [fun]  
  (let [t0 (js/performance.now)]
    (loop []
      (dotimes [_ 10] (fun))
      (when (< (- (js/performance.now) t0) 1000) (recur)))
    (let [t0      (js/performance.now)
          steps   (loop [steps 0]
                    (dotimes [_ 10] (fun))
                    (if (< (- (js/performance.now) t0) 5000)
                      (recur (+ steps 10))

tonsky

(defn race
  "Runs two fns in tight loops in two parallel threads for 1 second"
  [publish-fn check-fn]
  (println "---")
  (let [*run?     (volatile! true)
        *failures (volatile! 0)
        thread!   #(future
                     (loop [i 0]
                       (% i)
                       (if @*run? (recur (inc i)) i)))

tonsky

(require '[criterium.core :as c])

(defn format-time [estimate]
  (let [mean (first estimate)
        [factor unit] (c/scale-time mean)]
    (c/format-value mean factor unit)))


(defmacro race [body1 body2]
 `(let [_#        (assert (= ~body1 ~body2))

tonsky

(import '[java.net InetAddress DatagramPacket DatagramSocket])


(defonce socket (DatagramSocket.))


(defn send-message [text port]
  (let [host   (InetAddress/getLocalHost)
        packet (DatagramPacket. (.getBytes text) (.length text) host port)]
     (.send socket packet)))

tonsky

(require '[criterium.core :as c])

(defn new_=
  "Equality. Returns true if x equals y, false if not. Same as
  Java x.equals(y) except it also works for nil, and compares
  numbers and collections in a type-independent manner.  Clojure's immutable data
  structures define equals() (and thus =) as a value, not an identity,
  comparison."
  {:inline (fn [x y] `(. clojure.lang.Util equiv ~x ~y))
   :inline-arities #{2}

tonsky

(ns uploader
  (:require
    [clojure.string :as str]
    [goog.dom :as gdom]
    [goog.userAgent :as ua]
    [rum.core :as rum]))


(defonce supports-dragndrop?
  (let [el (js/document.createElement "div")]