Skip to content

Instantly share code, notes, and snippets.

Reid D McKenzie arrdem

Block or report user

Report or block arrdem

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
arrdem /
Created Sep 14, 2019
A thunk based implementation of natural numbers in Java
package me.arrdem.ox;
import io.lacuna.bifurcan.IList;
import io.lacuna.bifurcan.Lists;
import kotlin.jvm.functions.Function0;
import org.jetbrains.annotations.NotNull;
import java.math.BigInteger;
public final class Nat implements Comparable<Nat> {
#!/usr/bin/env python3
"""Evil monitoring.
Ping hosts, syslogging at INFO if they're up and happy, otherwise using Telnet scripting to force
reset them and syslogging at CRIT with what the uptime was prior to forced reboot.
Hosts are debounced, so that they have a chance to return before monitoring resumes.
No effort is made to detect network conditions or poweroffs.
#!/usr/bin/env -S pex proquint --
"""Compute random proquints as hostnames, throw 'em in zones."""
import sys
from random import randint
from proquint import uint2quint_str
# eight bits of provider addressing
ZONES = {"sfo2", "wbu1"}
View valid.clj
(ns spec.extras.valid
(:require [clojure.spec.alpha :as s]))
(defn valid!
"`#'s/valid?` but throws an `ex-info` with `#'s/explain-data` of the
failure when `val` doesn't conform to `spec`.
Intended for always-on postconditions because `#'s/assert` is off by
[spec val]
(if (s/valid? spec val)
arrdem / PKGBUILD
Created Oct 29, 2018
clojure-tools for Arch Linux
# Maintainer: Reid 'arrdem' McKenzie <>
pkgdesc="clojure-tools (clj, clojure)"
arch=('i686' 'x86_64')
View spellcheck.clj
(ns doc-test
(:require [clojure.test :as t]
[ :refer [sh]]
[clojure.string :as str]
[ :as io])
(:import [ StringReader]))
(def aspell-pattern
#"& (?<word>\w+) (?<offset>\d+) (?<count>\d+): (?<alternatives>.*?)$")
struct MyVec<T>(T);
impl fmt::Display for MyVec<&Vec<i32>> {
fn fmt(&self, f: &mut fmt::Formatter) -> fmt::Result {
write!(f, "[");
for (i, el) in *(self.0).iter().enumerate() {
if i != 0 {
write!(f, ", ");
arrdem / 20-markdown.el
Created Jan 20, 2017
My markdown support
View 20-markdown.el
;; 20-markdown.el
(require 'markdown-mode)
;; One space per line implementation
(defun arrdem:markdown-nobreak-p ()
"Return nil if it is acceptable to break the current line at the point.
Supports Markdown links, liquid tags."
;; inside in square brackets (e.g., link anchor text)
arrdem /
Last active Apr 5, 2017
A bootleg puppet
# -*- mode: bash; indent-tabs-mode: nil; sh-basic-offset: 2; fill-column: 100; -*-
# About
# ==============================
# A bootleg dotfiles installer.
# Usage
# ==============================
# $FORCE - if non-empty then will happily clobber existing files/dirs
View -
function install_package() {
if [ -e "$1/" ]; then
( cd "$1";
bash "")
stow --ignore="" --ignore="" -t ~ "$f"
You can’t perform that action at this time.