Skip to content

Instantly share code, notes, and snippets.

View christianromney's full-sized avatar
🏠
Working from home

Christian Romney christianromney

🏠
Working from home
View GitHub Profile
#lang racket
(define es (list 1 2 3))
(define base
(lambda (k)
(lambda (es)
'())))
(define step
(lambda (k)
Hi Christian,
Over the past few days, our reliability has not met our standard
of excellence. We are writing to apologize for any disruptions
this may have caused for you and your work. Resolving these
issues is our team’s top priority, and we are doing everything we
can to resume the level of service you expect from CircleCI.
What happened:
Hi Christian,
Over the past few days, our reliability has not met our standard
of excellence. We are writing to apologize for any disruptions
this may have caused for you and your work. Resolving these
issues is our team’s top priority, and we are doing everything we
can to resume the level of service you expect from CircleCI.
What happened:
#!/usr/bin/env bash
set -o pipefail
slow_compute_hash() {
find "$1" -type f -exec md5sum {} \; | sort -k 2 | md5sum
}
fast_compute_hash() {
find "$1" -type f -print0 | sort -z | xargs -0 md5sum | md5sum
}
#!/usr/bin/env bash
set -o pipefail
compute_hash() {
find "$1" -type f -exec md5sum {} \; | sort -k 2 | md5sum
}
PROJECT_ROOT=$(git rev-parse --show-toplevel)
echo "root: ${PROJECT_ROOT}"
#!/usr/bin/env bash
if [[ $1 = "dev" ]]; then
echo -e "\033[1;32mUsing dev environment"
sed -i '' -e 's/\$DB_TST/$DB_DEV/' .envrc
direnv allow
elif [[ $1 = "test" ]]; then
echo -e "\033[1;33mUsing test environment"
sed -i '' -e 's/\$DB_DEV/$DB_TST/' .envrc
direnv allow
else
(function (global, factory) {
typeof exports === 'object' && typeof module !== 'undefined' ? module.exports = factory() :
typeof define === 'function' && define.amd ? define(factory) :
(global.mixpanel = factory());
}(this, function () { 'use strict';
var Config = {
DEBUG: false,
LIB_VERSION: '2.22.4'
};
(ns switch
(:require [clojure.pprint :as pprint]))
(defn project-clj-map [filename]
(->> (slurp filename)
(read-string)
(drop 1)
(partition 2)
(map vec)
(into {})))
require "continuation"
$breadcrumbs = []
def current_continuation
callcc { |cc| cc }
end
def fail!
raise "No more breadcrumbs to follow" if $breadcrumbs.empty?
require './amb.rb'
$reported = false
def report(a, b)
puts "a: #{a}, b: #{b}"
unless $reported
puts "Press any key to continue..."
gets
$reported = true