17 lines
250 B
Racket
17 lines
250 B
Racket
#lang planet dyoo/whalesong
|
|
|
|
(require (planet dyoo/whalesong/world))
|
|
|
|
|
|
(define handler (on-tick add1 1))
|
|
handler
|
|
|
|
"big bang should follow:"
|
|
|
|
(big-bang 0
|
|
(on-tick add1 1)
|
|
;;(stop-when (lambda (w) (> w 10)))
|
|
)
|
|
|
|
|
|
"all done" |