9 lines
229 B
Racket
9 lines
229 B
Racket
#lang racket
|
|
|
|
(require 2htdp/universe 2htdp/image)
|
|
|
|
(universe 0
|
|
(on-tick (lambda (w) (make-bundle (add1 w) '() '())) 1/28 3)
|
|
(on-msg (lambda (w sender msg) (make-bundle w '() '())))
|
|
(on-new cons))
|