Joel Gustafson joeltg

I hereby claim:

To claim this, I am signing this object:

	AUXDIR=/usr/local/lib/mit-scheme-x86-64

	all: build

	install:
	install -m 644 zmq-types.bin $(AUXDIR)
	install -m 644 zmq-const.scm $(AUXDIR)
	install -m 644 zmq-shim.so $(AUXDIR)

	clean:

	from functools import reduce
	from operator import getitem

	def bst(n, i):
	if n % 2 == 0:
	h = 2 ** (n / 2)
	remainder, quotient = i % h, i // h
	return bst(n / 2, remainder), bst(n / 2, quotient)
	else:
	return i

	;;;; automatom.scm

	;; rules are binary trees of booleans

	;; colors: black = #t and left
	;; white = #f and right

	;; layers: left = 0
	;; top = 1
	;; right = 2

	(load-option '*parser)

	(define (json-vector-list v)
	(vector (vector->list v)))

	(define json-object-pair
	(*parser
	(transform
	(lambda (v)
	(vector (cons (string->symbol (vector-ref v 0)) (vector-ref v 1))))

	// GitHub expects us to embed Gists by including a script like this:
	// <script src="https://gist.github.com/hash.js"></script>
	// But this only works if included at parse timue because the script uses
	// document.write() so it can't be dynamically inserted afterwards.
	// Google recomments creating an iframe and using contentDocument.writeln()
	// with skeleton html that loads the script and writes to the iframe document,
	// but then if we ever move the element (or clone it for ghosting) the iframe
	// will reload.
	// SO instead, we make a shadow root, attach an invisible iframe to the
	// shadow root that loads the GitHub embed script for ths gist, and then

	(define (make-initialized-circular-list k procedure)
	(let ((circle (make-initialized-list k procedure)))
	(set-cdr! (last-pair circle) circle)
	circle))

	(define (circular-list-length circle)
	(if (null? circle)
	0
	(let iter ((c (cdr circle)) (i 1))
	(if (eq? c circle)

	#include <avr/io.h>
	#include <util/delay.h>

	#define output(directions,pin) (directions \|= pin)
	#define set(port,pin) (port \|= pin)
	#define clear(port,pin) (port &= (~pin))
	#define pin_test(pins,pin) (pins & pin)
	#define bit_test(byte,bit) (byte & (1 << bit))
	#define led_delay() _delay_ms(500)

	(define (normalize-pathname pathname)
	(directory-pathname-as-file (pathname-simplify pathname)))

	(define (initialize-environments ht ie nie nee)
	(environment-define nie 'hash-table ht)
	(environment-define nie 'import-env nie)
	(environment-define nie 'export-env nee)
	(environment-define nie 'import-list (make-import-list nie ht))
	(environment-define nie 'export-list (make-export-list nie nee))
	(link-variables nie 'import ie 'import)