Lyndon Maydwell sordina

Doubly Blockcirculant Conversationalist.

sordina / dragmouseosx.c

Created September 28, 2015 11:00

	#include <ApplicationServices/ApplicationServices.h>
	#include <unistd.h>

	int main() {
	// Left button down
	CGEventRef click1_down = CGEventCreateMouseEvent(
	NULL, kCGEventLeftMouseDown,
	CGPointMake(200, 200),
	kCGMouseButtonLeft
	);

sordina / gnuplot-column.bash

Created September 22, 2015 03:11

Plot a single column with gnuplot

	#!/bin/bash

	set -e

	cat <<EOF > /tmp/gnuplot-column-script.gnuplot

	set terminal png size 1600,800
	set output "/tmp/gnuplot-column-$$.png"
	unset key

sordina / proxies.hs

Last active September 14, 2015 00:14

Demonstrating Data.Proxy

	-- Demonstrating Data.Proxy

	{-# LANGUAGE RankNTypes #-}
	{-# LANGUAGE ScopedTypeVariables #-}

	import Data.Proxy
	import Safe

	string :: Proxy String
	string = Proxy

sordina / markov2.hs

Last active September 3, 2015 07:02

A simple Markov-Chain implementation

	{-# LANGUAGE TupleSections #-}

	import Data.List
	import Control.Monad.Random
	import Control.Arrow
	import Control.Applicative
	import Safe
	import System.Environment
	import System.Exit
	import Data.Hashable (Hashable)

sordina / stanc++.sh

Last active August 29, 2015 14:28

Compile Stan generated C++

	#!/bin/bash

	# Only set this variable if it isn't set
	#
	if [ -z ${STANHOME+x} ]
	then
	export STANHOME=/Users/lyndon/Downloads/cmdstan-2.7.0
	echo "Setting STANHOME to $STANHOME" 1>&2
	else
	echo "STANHOME already set to $STANHOME" 1>&2

sordina / either.hs

Last active August 29, 2015 14:23


	import Control.Monad
	import Control.Applicative
	import Data.Either
	import Data.Monoid

	instance Monoid l => Alternative (Either l) where
	empty = Left mempty
	Left a <\|> Left _ = Left a
	Left _ <\|> Right b = Right b

sordina / RandomNotes.html

Created June 17, 2015 13:15

Render random bars of notes for cello practice

	<html>
	<head>
	<title> random notes </title>
	<script type="text/javascript" charset="utf-8" src="http://www.vexflow.com/vextab/support/vexflow-min.js"> </script>
	<script src="http://code.jquery.com/jquery-1.11.3.min.js"></script>
	</head>

	<body>

	<input style="width: 800px;" id="slider" type="range" min="1" max="60" step="1" value="3" />

sordina / lenses_on_custom_trees.hs

Last active August 29, 2015 14:22

sordina / ghcm

Created April 22, 2015 05:29

Evaluate Haskell Expression and allow for module imports.

	#!/bin/sh

	if [[ ! "$1" ]]
	then
	echo 'usage: ghcm <expression> <module>*'
	exit 1
	fi

	tmp_mod="/tmp/tmp_mod_$$.hs"

sordina / FP-Meetup-Stats.csv

Last active August 29, 2015 14:19

functional-programming meetup stats over time