amalloy

Host nfsn
	Hostname ssh.phx.nearlyfreespeech.net

Host *
	IdentityFile ~/.ssh/id_fibonatch_auto
	IdentityFile ~/.ssh/id_fibonatch_weak

amalloy

(defn ack [m n]
  (cond (zero? m) (inc n)
        (zero? n) (ack (dec m) 1)
        :else (ack (dec m) (ack m (dec n)))))

(defn ack-cps
  ([m n] (ack-cps m n identity))
  ([m n k]
     (loop [m m, n n, k k]
       (cond (zero? m) (k (inc n))

skensell

--- module ScottsSnake where

import Keyboard
import Random
import String
import Set

type Position = {x: Int, y: Int }
type Board = {w: Int, h: Int, wall: [Position]}
type Apple = Position