Skip to content

Instantly share code, notes, and snippets.

View expand-diff
#!/bin/sh
#|
exec racket -qu "$0" ${1+"$@"}
|#
#lang racket
(require (planet stamourv/sexp-diff))
(define (read-and-expand file)
(with-input-from-string ;; read-syntax won't work with #lang
View Makefile
all:
rustc rtinstrument.rs
rustc foo.rs -L .
./foo | racket rust-visualizer.rkt &
@stamourv
stamourv / cantor-pairing-image.rkt
Created Oct 29, 2012
Optimization Coach Demo - RacketCon 2012
View cantor-pairing-image.rkt
#lang racket
(require slideshow unstable/gui/slideshow)
(define points
(for/list ([i 10])
(disk 10)))
(define named-points
(for/list ([p points] [i (in-naturals)])