suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DrDr props and stderr removal

Browse Source 
svn: r15477
This commit is contained in:
Jay McCarthy 2009-07-17 17:59:36 +00:00
parent 4e40450248
commit a6312e8050
2 changed files with 69 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/games/gobblet/robot.ss
View File

@ -42,10 +42,14 @@
void)) void))
void)) void))
(define init-who 'red) (define init-who 'red)
; Only play 50 games to control run time
(define how-many 50)
;; Play-a-game test ;; Play-a-game test
(let go () (let go ()
(sleep 1) (unless (zero? how-many)
(set! how-many (sub1 how-many))
;(sleep 1)
;; (random-seed 12) ;; (random-seed 12)
(let loop ([board init-board] (let loop ([board init-board]
[who init-who] [who init-who]
@ -71,6 +75,6 @@
who board history)]) who board history)])
(printf "[~a secs]~n" (/ (- (current-inexact-milliseconds) start) (printf "[~a secs]~n" (/ (- (current-inexact-milliseconds) start)
1000.0)) 1000.0))
(loop (apply-play board m) (other who) who (cons board history)))])))) (loop (apply-play board m) (other who) who (cons board history)))])))))
CONFIG EXPLORE MODEL HEURISTICS)]) CONFIG EXPLORE MODEL HEURISTICS)])
(export)))) (export))))

2
collects/setup/main.ss
View File

@ -40,7 +40,7 @@
(define-values (print-bootstrapping) (define-values (print-bootstrapping)
(lambda () (lambda ()
(fprintf (current-error-port) "setup-plt: bootstrapping from source...\n"))) (fprintf (current-output-port) "setup-plt: bootstrapping from source...\n")))
(if (or (on? 'clean values) (if (or (on? 'clean values)
(on? 'make-zo not)) (on? 'make-zo not))