Skip to content

Instantly share code, notes, and snippets.

@didibus
didibus / defnk.clj
Last active Nov 3, 2018
Clojure macro to define strict keyword argument functions
View defnk.clj
(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
didibus / reagent-counter.cljs
Last active Jul 16, 2018
A simple counter implemented in ClojureScript using reagent as the only dependency.
View reagent-counter.cljs
(ns counter.core
(:require [reagent.core :as r]))
;;;; Utils
(defn ratom? [a]
(= reagent.ratom/RAtom (type a)))
(defn make-state [state]
@didibus
didibus / #clojurescript-counter
Last active Oct 30, 2020
Example of a simple ClojureScript implementation of a counter, using no dependencies.
View #clojurescript-counter
#clojurescript-counter
@didibus
didibus / abstract-factory.clj
Created Apr 13, 2017
My attempt at what the abstract factory pattern would look like in Clojure
View abstract-factory.clj
(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
didibus / virtual-time.clj
Created Apr 11, 2017
My deftype based take on the google group question found here: https://groups.google.com/forum/#!topic/clojure/oe1Ch1oSlLk
View virtual-time.clj
(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]
View virtual-time.clj
(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
View gist:1fd4c00b69d927745fbce3dcd7ca461a
(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)]))