Arch 💕 Archenoth

Advent Of Code 2024

(require '[clojure.string :as str]
         '[clojure.core.match :refer [match]]
         '[clojure.math.combinatorics :as combo])

Day 1: Historian Hysteria

Advent Of Code 2023

(require '[clojure.string :as str]
         '[clojure.core.match :refer [match]]
         '[clojure.edn :as edn])

Day 1: Trebuchet?!

Advent Of Code 2022

(require '[clojure.string :as str]
         '[clojure.core.match :refer [match]]
         '[clojure.edn :as edn])

Day 1: Calorie Counting

Advent of Code 2021

(require '[clojure.string :as str])

— Day 1: Sonar Sweep —

You’re minding your own business on a ship at sea when the overboard alarm goes off! You rush to see if you can help. Apparently, one of the Elves tripped and accidentally sent the sleigh keys flying into the ocean!

	#!/bin/bash
	EL=`cat <<EL
	(load-theme 'modus-vivendi)

	(setq initial-scratch-message nil)

	;; Squelch the creation of .#<filename> files
	(setq create-lockfiles nil)

	;; Emacs auto-backups feel nicer when they collect in my ~/.emacs.d/backups

	(fn assert-tail [tail-sym body]
	"Asserts that the passed in tail-sym function is a tail-call position of the
	passed-in body.

	Throws an error if it is in a position to be returned or if the function is
	situated to be called from a position other than the tail of the passed-in
	body."
	(fn last-arg? [form i]
	(= (- (length form) 1) i))

	extra-keys = [ \
	['Z', '7', 'UP', '9', '\\\''], \
	['TAB', 'LEFT', '5', 'RIGHT', '*'], \
	['=', '1', 'DOWN', '3', 'ENTER'] \
	]

	#include <stdio.h>
	#include <errno.h>
	#include <stdlib.h>
	#include <unistd.h>

	#include <asm-generic/unistd.h>

	#include <sys/procfs.h>
	#include <sys/ptrace.h>
	#include <sys/types.h>

	#!/bin/sh

	KEYMAP=$1

	if [ -z "$KEYMAP" ]; then
	KEYMAP=default
	fi

	if [ -f "$HOME/.termux/keymaps/$KEYMAP.properties" ]; then
	echo "Setting keymap: $KEYMAP"

	extra-keys = [ \
	['ESC', '7', 'UP', '9', '\\\''], \
	['TAB', 'LEFT', '5', 'RIGHT', '*'], \
	['=', '1', 'DOWN', '3', 'ENTER'] \
	]