Skip to content

Instantly share code, notes, and snippets.

View tsmacdonald's full-sized avatar
🎻

Tim Macdonald tsmacdonald

🎻
30 followers · 7 following
View GitHub Profile
@tsmacdonald
tsmacdonald / gist:11389511
Last active August 29, 2015 14:00
def fib(n, i=1, a=0, b=1):
if i == n: return b
return fib(n, i + 1, b, a + b)
@tsmacdonald
tsmacdonald / gist:11360648
Last active August 29, 2015 14:00
(* Iterative approach; O(1) memory *)
fun factorial n =
let
val tally = ref 1
val i = ref 1
in
while !i < n do
tally := !tally * i
i := !i + 1;
end;
@tsmacdonald
tsmacdonald / Edinburgh Fire Brigade
Created April 22, 2014 04:28
X:1
T:The Edinburgh Fire Brigade
C:David M. Gardner
M:C|
L:1/8
K:Dmix =c
A2 AB ABdf | edef edBd | A2 AB ABdf | edef a2 a2 |
A2 AB ABdf | edef edBd | AFDF AFDF | GECE D2 D2 :|
|: DEFG ABAF | GECE GECE | DEFG ABAF | GECE G2 G2 |
DEFG ABAF | GECE GECE | AFDF AFDF | GECE D2 D2 :|
@tsmacdonald
tsmacdonald / gist:7328178
Last active December 27, 2015 12:48
Wizard-Professor Setup
  • git clone https://github.com/tsmacdonald/wizard-professor.git or copy it from the turnin directory
  • Create ~/.sbclrc and paste in the following:
(let ((quicklisp-init "/homes/tim.macdonald/quicklisp/setup.lisp"))
	(when (probe-file quicklisp-init)
	(load quicklisp-init)))
  • Create .config/common-lisp/source-registry.conf.d/projects.conf and paste in the following, changing the path as necessary:
@tsmacdonald
tsmacdonald / gist:3003751
Created June 27, 2012 12:27
$ rvm info
jruby-1.6.7@iopro:
system:
uname: "Linux phantasmagoria 2.6.32-5-amd64 #1 SMP Sun May 6 04:00:17 UTC 2012 x86_64 GNU/Linux"
bash: "/bin/bash => GNU bash, version 4.1.5(1)-release (x86_64-pc-linux-gnu)"
zsh: "/usr/bin/zsh => zsh 4.3.10 (x86_64-unknown-linux-gnu)"
rvm:
@tsmacdonald
tsmacdonald / gist:2985738
Created June 25, 2012 00:40
datatype MetasyntacticVariable = foo | bar | baz | quux;
interface MetasyntacticVariable {}
interface foo implements MetasyntacticVariable {}
interface bar ...