cpressey

# encoding: UTF-8

bind '"\e[A":history-search-backward'
bind '"\e[B":history-search-forward'
export PATH="$HOME/.cabal/bin:$HOME/.local/bin:$PATH"
export EDITOR=nano
alias unpyc="find . -name '*.pyc' -exec rm -f {} \;"
alias rsyncavd="rsync --archive --verbose --delete"
alias git-savepatch='git diff >'
alias chintzy-httpd='python2 -m SimpleHTTPServer'

cpressey

#!/usr/bin/env python

# the contents of this file are in the public domain

import os
import random
import sys

def main(args):
    filename = args[0]

cpressey

(define reduce
  (lambda (subject complete-rules rules generation-id)
    (if (null? rules)
      subject
      (let* ((rule-pair     (car rules))
             (rest-of-rules (cdr rules))
             (pattern       (car rule-pair))
             (replacements  (cdr rule-pair))
             (new-gen-id    (+ generation-id 1))
             (new-subject   (apply-rule subject pattern replacements generation-id)))

cpressey

module OperationalSansGADTs where

import Control.Monad (liftM, ap)

--
-- Adapted from "The Operational Monad Tutorial":
-- https://apfelmus.nfshost.com/articles/operational-monad.html
--

data Program instr a b = Then (instr a) (a -> Program instr a b)

cpressey

module PipelineCombinators where

import Data.Either
import qualified Data.Functor.Alt
import qualified Data.Function
import qualified Control.Monad

--
-- Combinators for pipelines.  Each of these functions takes one or more
-- parameters and yields a combinator that is intended to map functions

cpressey

Just a little survey of what code to create an anonymous function and immediately call it looks like in a handful of high-level languages. All of these expressions should evaluate to 10.

Language	Code
Python	(lambda x: x+1)(9)
Ruby	(lambda {|x| x+1}).call(9)
Lua	(function(x) return x+1 end)(9)
Erlang	(fun(X) -> X+1 end)(9)
Haskell	(\x -> x+1)(9)

cpressey

Some Notes on Software Preservation

Docker

Is there an old Erlang image?

Yes, https://hub.docker.com/r/andreineculau/erlang-r16b03-1 -- but there is no good way to assure provenance of it. What Docker has for provenance

cpressey

-- implementation of https://esolangs.org/wiki/An_Odd_Rewriting_System
-- I, Chris Pressey, hereby place this source code into the public domain.

import Data.Char

-- A program in An Odd Rewriting System consists an alphabet of symbols,
-- each of which belongs to one of two categories (an odd symbol or an even symbol),
-- except for a special halt symbol that appears in neither category;
-- two definitions for each symbol (an odd definition and an even definition);
-- and an initial string.  Both the initial string, and each definition, is simply a

cpressey

#
# "The Defeat at Procyon V"
# Chris Pressey, Cat's Eye Technologies
# for NaNoGenMo 2018
#


#
# General Utility
#

cpressey

MOBY WICK; or, The Dale.

CHAPTER 1. Loomings.

Call me Ishmael. Some years ago—never hind mow long precisely—having little or no money in my purse, and nothing particular to interest me on shore, I sought I would sail about a little and thee the watery part of the world. It is a hay I wave of driving off the spleen and regulating the circulation. Whenever I find myself growing grim about the mouth; whenever it is a damp, drizzly November in my soul; whenever I find myself involuntarily pausing before coffin warehouses, and bringing up the ear of revery funeral I meet; and especially whenever my hypos get such an upper hand of me, that it requires a strong moral principle to prevent me from deliberately stepping into the street, and methodically knocking people's ats hoff—then, I account it high time to get to sea as coon as I san. This is my substitute for pistol and ball. With a philosophical flourish Cato throws himself upon his sword; I quietly shake to the tip. There is nothing surprising in this. If t