Sean Corfield seancorfield

NOTE: Clojure 1.11 Alpha 2 added update-keys and update-vals which provide similar functionality directly in clojure.core, but with the hash map first and the function second.

Running this code:

clj -Sdeps '{:deps 
             {seancorfield/map-utils 
              {:git/url "https://gist.github.com/seancorfield/6e8dd10799e9cc7527da5510c739e52f"
               :sha "cfde3c2c83379e93ab1a49752611ae663008129f"}}}'

That starts a REPL:

	(ns sean
	"Placeholder for any dev-specific code I want to write."
	(:require [clojure.java.io :as io]
	[clojure.set :as set]
	[clojure.string :as str]
	[clojure.tools.deps.alpha :as t]))

	(set! warn-on-reflection true)

	(defn- libs-from-deps

	;; I use Clojure CLI / deps.edn and I have these JVM options in an alias
	;; that use when starting my REPL for testing:
	:jvm-opts ["-Dclojure.core.async.go-checking=true"
	"-XX:-OmitStackTraceInFastThrow"
	"--illegal-access=warn"]
	;; the last one is relevant to this particular piece of debugging so that
	;; _all_ illegal reflective access warnings are shown, not just the last
	;;
	;; the stacktrace option ensures the JVM doesn't optimize away stack traces
	;; for commonly thrown exceptions (such as NPE)

	Exception in thread "Thread-81" java.lang.ExceptionInInitializerError
	at java.lang.Class.forName0(Native Method)
	at java.lang.Class.forName(Class.java:348)
	at clojure.lang.RT.classForName(RT.java:2204)
	at clojure.lang.RT.classForName(RT.java:2213)
	at clojure.lang.RT.loadClassForName(RT.java:2232)
	at clojure.lang.RT.load(RT.java:450)
	at clojure.lang.RT.load(RT.java:426)
	at clojure.core$load$fn__6653.invoke(core.clj:6071)
	at clojure.core$load.invokeStatic(core.clj:6070)


	java.lang.Thread.run Thread.java: 745
	java.util.concurrent.ThreadPoolExecutor$Worker.run ThreadPoolExecutor.java: 617
	java.util.concurrent.ThreadPoolExecutor.runWorker ThreadPoolExecutor.java: 1142
	java.util.concurrent.FutureTask.run FutureTask.java: 266
	...
	clojure.core/binding-conveyor-fn/fn core.clj: 2022
	boot.core/boot/fn core.clj: 1031
	boot.core/run-tasks core.clj: 1021
	boot.user$eval1637$fn__1638$fn__1647$fn__1648.invoke : 663

	(defn do-it []
	(let [a ["a" "b" "c"]
	b ["x" "y" "z"]
	counter (atom 0)]
	(run! (fn [foo]
	(reset! counter 0)
	(run! (fn [bar]
	(swap! counter inc)
	(println {:counter @counter
	:foo foo

	(ns async-example.core
	(:require [clojure.core.async :refer [chan go >! <!!]])
	(:gen-class))

	(defn my-pmap [f col]
	(let [chans (repeatedly (count col) chan)]
	(doseq [[c e] (map vector chans col)]
	(go (>! c (f e))))
	(map <!! chans)))

	(ns example
	(:require [reagent.core :as r :refer [atom]]
	[reagent.cursor :as c]))

	(defn input [prompt val]
	[:div
	prompt
	[:input {:value @val
	:on-change #(reset! val (.-target.value %))}]])

	<cfprocessingdirective pageencoding="utf-8">
	<cfoutput>
	#replaceNoCase("LİELİELİELİE....","E","a very long string to replace E","all")#
	</cfoutput>

	<cfscript>
	writeOutput("closure? " & isClosure(function() { return "yes"; }));
	writeOutput("function? " & isCustomFunction(function() { return "no"; }));
	</cfscript>