Skip to content

Instantly share code, notes, and snippets.

jafingerhut / apropos2.clj
Created Feb 7, 2012
apropos2 and unresolve
View apropos2.clj
;; Example use of unresolve:
;; user=> (unresolve #'replace)
;; (replace clojure.core/replace)
;; user=> (use 'clojure.string)
;; WARNING: replace already refers to: #'clojure.core/replace in namespace: user, being replaced by: #'clojure.string/replace
;; WARNING: reverse already refers to: #'clojure.core/reverse in namespace: user, being replaced by: #'clojure.string/reverse
;; nil
;; user=> (unresolve #'replace)
;; (replace clojure.string/replace)
jafingerhut /
Created Nov 9, 2012
AndroChef Java decompiler output of class file compiled from Cedric Greevey's Clojure code
package perf;
import clojure.lang.AFunction;
import clojure.lang.IFn;
import clojure.lang.Indexed;
import clojure.lang.Numbers;
import clojure.lang.RT;
import clojure.lang.Var;
import java.awt.image.BufferedImage;
jafingerhut / str-seq-reader.clj
Last active Dec 31, 2015
str-seq-reader - Take a sequence of strings and return a Java Reader that, when read, returns the contents of the concatenation of those strings. Only as much of the sequence as needed by the reader is consumed. Examples of use at the bottom.
View str-seq-reader.clj
(ns piper.core
(:require [ :as io]
[clojure.string :as str])
(:import ( Reader Writer BufferedReader)))
(defn str-seq-reader
"Return a that returns the same sequence of
characters as are in the concatenation of the sequence of strings
given as an argument. Consumes only as much of the sequence as needed
for any given read operation."
jafingerhut / gist:8359201
Last active Jan 2, 2016
do's inside top level do's are 'flattened'
View gist:8359201
;; In a fresh Clojure 1.5.1 'lein repl'
;; clojure.edn is not loaded yet
user=> (clojure.edn/read-string "(5)")
ClassNotFoundException clojure.edn$ (
;; trying to eval this form does not do it, because it fails to analyze as a whole
user=> (eval `(when true (require 'clojure.edn) (clojure.edn/read-string "(5)")))
View pprint-metadata-weirdness.clj
;; Examples showing that when *print-meta* is bound to true, clojure.pprint/pprint appears
;; to show metadata on symbols, but not on collections. Can be misleading when only *some*
;; metadata is shown. Led me to believe the other metadata wasn't there until I double-checked
;; with pr.
(defn ppm [f m]
(binding [*print-meta* m]
(clojure.pprint/pprint f)))
(defn prm [f m]
jafingerhut / inputstream.clj
Created Jul 8, 2014
Example of reading in Clojure
View inputstream.clj
(ns inputstream.core
(:require [ :as io]))
(defn read-is [^ is]
(let [bufsize 8192
buf (byte-array bufsize)]
(loop [total-len 0]
(let [n (.read is buf)]
View tag-vars.clj
;; TBD: What is going on here?
;; Why does (Math/abs (f2 -3)) cause a
;; reflection warning, but neither of the other variants does?
user=> (clojure-version)
user=> (set! *warn-on-reflection* true)
user=> (defn ^{:tag 'long} f1 [x] (inc x))
jafingerhut / reify-ns-qualified-args.clj
Created Nov 4, 2014
Reify with namespace-qualified args
View reify-ns-qualified-args.clj
user=> (def b 7)
user=> (def fplus2 (reify java.lang.Object (hashCode [user/b] (+ user/b 2))))
user=> (.hashCode fplus2)
jafingerhut / macrometa.clj
Last active Aug 29, 2015
Clojure metadata lost during macro invocations
View macrometa.clj
;; Clojure JIRA ticket CLJ-865:
;; was created with the intent of changing some of the behavior below, but it is
;; not clear as of late 2014 whether the behavior is considered a bug that should
;; be changed.
;; Nicola Mometto pointed out that there may be similar issues with metadata
;; being eliminated for primInvoke's and functions defined with definline.
;; Perhaps is related.
user=> *clojure-version*
View merge-sorted-seqs.clj
;; Example:
;; (merge-sorted-seqs < (range 10 1000 3) (range 12 1000 5))
(defn merge-sorted-seqs [cmpf seq1 seq2]
(let [seq1wins (and (seq seq1)
(or (nil? (seq seq2))
(cmpf (first seq1) (first seq2))))]
(if seq1wins
(lazy-seq (cons (first seq1)
(merge-sorted-seqs cmpf (next seq1) seq2)))