You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
247 B
Scheme
15 lines
247 B
Scheme
27 years ago
|
|
||
|
|
(read-case-sensitive #t)
|
||
|
|
(require-library "core.ss")
|
||
|
|
(load "listlib.ss")
|
||
|
|
(load "veclib.ss")
|
||
|
|
(load "tic-func.ss")
|
||
|
|
|
||
|
|
(let loop ()
|
||
|
|
(collect-garbage)
|
||
|
|
(collect-garbage)
|
||
|
|
(collect-garbage)
|
||
|
|
(dump-memory-stats)
|
||
|
|
(time (tic-tac-toe 1 1))
|
||
|
|
(loop))
|