Skip to content

Instantly share code, notes, and snippets.

View Hendekagon's full-sized avatar

Matthew Chadwick (work) Hendekagon

View GitHub Profile
@Hendekagon
Hendekagon / dispatch.clj
Created September 9, 2021 20:37
Comparison of function dispatch methods performance in Clojure
(require '[criterium.core :as c])
(defprotocol W (w [this x y]))
(def w1 (reify W (w [t x y] (* x y))))
(c/quick-bench (w w1 4 4))
; protocol dispatch
; Execution time mean : 6.625560 ns
@Hendekagon
Hendekagon / QR.clj
Created September 12, 2021 09:09
QR decomposition
(require '[clojure.core.matrix :as m])
(defn mup [mat rs cs f]
(m/set-selection mat rs cs
(f (m/select mat rs cs))))
(defn qr
"
QR decomposition by Householder reflection
@Hendekagon
Hendekagon / docker.clj
Created July 23, 2024 15:30
Docker admin
(ns hendekagon.docker
"
Docker admin
adapted from
https://github.com/lispyclouds/contajners/blob/main/doc/002-general-guidelines.md
"
(:require
[clojure.string :as string]
[clojure.java.io :as io]