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)]))

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 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

(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

#clojurescript-counter

didibus

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


;;;; Utils

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

(defn make-state [state]

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

#datafy-nav-example

didibus

(def safe-requires
  "List of namespaces to require and refer when inside user ns at load time.

   Can be given an initialization body to execute after having been required.
   To do so, wrap the lib spec in a vector, and all elements after the lib
   spec vector will be evaled after the lib spec has been required."
  '[[clojure.repl :as repl :refer (source apropos dir pst doc find-doc)]
    [clojure.java.javadoc :as javadoc :refer (javadoc)]
    [clojure.pprint :as pprint :refer (pp pprint)]
    [clojure.stacktrace :as stacktrace :refer (e)]

didibus

#letnoshadow.clj