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