Alex Miller puredanger

Hi Brian,

Twitter is terrible for this conversation due to non-threaded replies, the use of embedded images (instead of actual code), and the inability to reply to anything in more than 140 char chunks, so I am putting this in a gist for my own sanity. The ideal place to have this conversation is on the Clojure mailing list, where many people can both contribute to and benefit from a threaded discussion, with a searchable archive. I'd prefer any follow-ups go there.

https://twitter.com/marick/status/766766153712697345 If I reported that the attached worked fine for many versions, but fails in alpha111 what would happen?

https://clojure.org/releases/devchangelog#v1.11.0-alpha4

CLJ-2673 Add abs, and update min and max to use Math impls when possible

CLJ-2555 Add iteration generator function

	(def v0 [])
	(def v10 (vec (range 10)))
	(def v100 (vec (range 100)))
	(def v1000 (vec (range 1000)))

	(quick-bench (reduce + v0)) ;; 2 ns
	(quick-bench (apply + v0)) ;; 29 ns
	(quick-bench (reduce + v10)) ;; 216 ns
	(quick-bench (apply + v10)) ;; 392 ns
	(quick-bench (reduce + v100)) ;; 2.13 µs

	;; for the use case where same key is transformed through stage

	(s/def :st1/a int?)
	(s/def :st2/a string?)

	(defn validate-map [stage m]
	(every? (fn [[k v]] (s/valid? (keyword stage (name k)) v)) m))

	(validate-map "st1" {:a 100}) ;; true
	(validate-map "st2" {:a "abc"}) ;; true

	(require '[clojure.spec.alpha :as s] '[clojure.spec.test.alpha :as stest])

	(s/def ::cb (s/fspec :args (s/cat :e #(instance? Throwable %))))
	(s/fdef foo :args (s/cat :e ::cb))
	(defn foo [e])

	(stest/instrument `foo)
	(foo (fn [e] e))

	ExceptionInfo Unable to construct gen at: [:e] for: (instance? java.lang.Throwable %) clojure.core/ex-info (core.clj:4727)

	;; Prints a table of vars in an ns with name/line/added/macro flag/deprecated flag

	(defn pr-vars [ns-sym]
	(->> (ns-publics ns-sym) vals (map meta) (sort-by :name)
	(map #(select-keys % [:name :line :added :macro :deprecated]))
	(map #(merge {:added nil :macro false :deprecated false} %))
	clojure.pprint/print-table))

	(pr-vars 'clojure.string)
	;; \| :added \| :macro \| :deprecated \| :name \| :line \|

	Homebrew build logs for clojure on macOS 10.15.2
	Build date: 2020-01-30 14:27:00

	{:paths ["."]
	:deps {org.clojure/data.json {:mvn/version "2.4.0"}}}