12 lines
248 B
Scheme
12 lines
248 B
Scheme
#lang scheme
|
|
|
|
(require 2htdp/universe)
|
|
|
|
(define s "")
|
|
(define x 0)
|
|
|
|
(with-handlers ((exn? void))
|
|
(big-bang 0
|
|
(on-tick (lambda (w) (begin (set! x (+ x 1)) w)))
|
|
(on-draw (lambda (w) (set! s (number->string w))))))
|
|
|