didibus

(defmacro defnk
  [name & fdecl]
  (let [doc-string? (when (string? (first fdecl))
                      (first fdecl))
        fdecl (if (string? (first fdecl))
                (next fdecl)
                fdecl)
        attr-map? (when (map? (first fdecl))
                    (first fdecl))
        fdecl (if (map? (first fdecl))

didibus

(ns counter.core
  (:require [reagent.core :as r]))


;;;; Utils

(defn ratom? [a]
  (= reagent.ratom/RAtom (type a)))

(defn make-state [state]

didibus

#clojurescript-counter

didibus

(defn draw-ui [{:keys [label casing content]}]
  (let [pad (Math/floor (/ (- (Math/max (count label) (count (or (:label content) "")))
                              (+ 2 (Math/min (count label) (count (or (:label content) "")))))
                           2))]
    (println (str "|" (if (= :upper casing)
                        (.toUpperCase label)
                        (.toLowerCase label)) "|" \newline
                  "|" (reduce (fn [a b] (str a " ")) "" label) "|" \newline
                  (when content
                    (str "|" (apply str (repeat pad \space))

didibus

(ns spec-test.virtual-time
  (:require [clojure.spec :as s]
            [clojure.spec.test :as st]
            [clojure.spec.gen :as sgen]))

(deftype VirtualTime [time]
  Object
  (hashCode [_]
            (hash time))
  (equals [this that]

didibus

(ns spec-test.virtual-time
  (:require [clojure.spec :as s]
            [clojure.spec.test :as st]))

(s/def ::virtual-time
       (s/or 
        :positive-infinity #{:positive-infinity}
        :negative-infinity #{:negative-infinity}
        :number number?))
(s/fdef vt-lt

didibus

(ns hash-set-bench
  "A Benchmark I modified to Clojure from:
   https://github.com/c-cube/hashset_benchs")

(defn iterNeighbors [f [i j]]
  (f [(dec i) j])
  (f [(inc i) j])
  (f [i (dec j)])
  (f [i (inc j)]))