devn

(defn quick-pr-str
  ([data]
   (let [acc (StringBuilder.)]
     (quick-pr-str acc data)
     (.toString acc)))
  ([^StringBuilder acc data]
   (cond
     (string? data)
     (do
       (.append acc \")

devn

(ns day05
  (:require [clojure.string :as str]
            [clojure.set :as set]))

(def boarding-passes "...")

(defn find-pos [ops size lower-op upper-op]
  (loop [ops ops
         xs (range 0 (inc size))]
    (if (seq ops)

devn

(require '[clojure.zip :as z])

(defn update-in*
  "Like update-in, but also works with nested sets."
  [m ks f & args]
  (let [up (fn up [m ks f args]
             (let [[k & ks] ks]
               (if ks
                 (if (set? m)
                   (conj (disj m k) (up (get m k) ks f args))

devn

(ns coinstar
  (:import [java.time LocalDate]))

(def working? (constantly false))

(defn go
  "Provided a `who` and `when`, returns the state of 
  a coinstar `when` the `who` goes to it.

  Example:

devn

defmodule Do do
  def dont think, about, it, but, please do
    [think, about, it, please]
  end
end

Do.dont :worry, :about, :grouping, :any, :arguments
=> [:worry, :about, :grouping, :arguments]

devn

(ns strum.core
  (:refer-clojure :exclude [defn])
  (:require
   [clojure.spec :as spec]
   [clojure.spec.test :as spec.test]))

;; ---------------------------------------------------------------------
;; Prelude

;; HACK: Currently, as of Clojure 1.9.0-alpha14, there is a bug with

devn

Keybase proof

I hereby claim:

• I am devn on github.
• I am devn (https://keybase.io/devn) on keybase.
• I have a public key whose fingerprint is F782 0ED3 7BE8 3639 1130 3C76 EB31 8EE6 4426 0178

To claim this, I am signing this object:

devn

(require '[clojure.walk :as walk])
;; => nil

(defn transient? [x]
  (instance? clojure.lang.ITransientCollection x))
;; => #'user/transient?

(let [transients (walk/postwalk (fn [x]
                                  (if (map? x)
                                    (transient x)

devn

;; http://notahat.com/midi_patchbay/
;; Create a virtual input and virtual output in MIDI patchbay
;; input name: "Overtone"
;; output name: "yourchoice"

;; In Reason, Ableton, etc. select "yourchoice"
;; as the midi input for a channel.

(ns jam.core
  (:use [overtone.live]))

devn

(defn gen-nonvariadic-invokes [f]
  (for [arity (range 1 21),
        :let [args (repeatedly arity gensym)]]
    `(~'invoke [~@args] (~f ~@args))))

(defn gen-variadic-invoke [f]
  (let [args (repeatedly 22 gensym)]
    `(~'invoke [~@args] (apply ~f ~@args))))

(defn gen-apply-to [f]