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