opqdonut

(ns forkjoin
  (:import [java.util.concurrent ForkJoinPool ForkJoinTask RecursiveTask]))

(defonce ^ForkJoinPool pool (ForkJoinPool/commonPool))

;; Simplest possible wrappers for ForkJoin API

(defn task [f]
  (proxy [RecursiveTask] []
    (compute []

opqdonut

(ns jsonb-postgres-clojure
  (:require
   [jsonista.core :as json]
   [next.jdbc.prepare :as prepare]
   [next.jdbc.result-set :as rs])
  (:import
   [org.postgresql.util PGobject]
   [java.sql PreparedStatement Array]))

(def mapper (json/object-mapper {:decode-key-fn keyword}))

opqdonut

Architecture Decision Records

This directory contains Architecture Decision Records (ADRs) that document technical decisions made during the development of the system.

A good ADR should have the following parts:

• A date
• People involved with the decision

opqdonut

(ns partitions)

(defn nth-partition
  "Interpreting i as a binary sequence, split coll at every 1 in the sequence."
  [i coll]
  (loop [current [(first coll)]
         out []
         coll (next coll)
         i i]
    (if-not coll

opqdonut

https://www.metosin.fi/blog/2024-09-26-on-seniority-and-acceptance

On Seniority and Acceptance

There have been two hard pills for me to swallow as I've matured in my career, moving to more senior positions. By maturing I mean widening my impact from my individual contribution to the team level and beyond – being a multiplier, as they say. These hard pills are:

opqdonut

opqdonut

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

(defn i4t [t2e w2d val]
  (if (empty? w2d)
    (assoc t2e :end val)
    (update t2e
            (first w2d)
            i4t (rest w2d) val)))

opqdonut

Python-Clojure communication with msgpack-over-udp

Install deps & start the python broadcast:

python -m venv venv
. ./venv/bin/activate
pip install -r requirements.txt
python broadcast.py

opqdonut

(declare unparse)

(defn unparse-args [lang args]
  (cond
    (map? (first args))
    (update-vals (first args) (partial unparse lang))
    :else
    (mapv (partial unparse lang) args)))

(defn unparse [lang data]

opqdonut

{:deps {org.apache.logging.log4j/log4j-api {:mvn/version "2.17.2"}
        org.apache.logging.log4j/log4j-core {:mvn/version "2.17.2"}
        org.apache.logging.log4j/log4j-layout-template-json {:mvn/version "2.17.2"}
        org.apache.logging.log4j/log4j-slf4j18-impl {:mvn/version "2.17.2"}}}