svn: r155

collects/mztake/demos/random/random-Xs-test-v3.ss

@@ -0,0 +1,36 @@
+(require (lib "graphics.ss" "graphics")
+         (lifted mzscheme
+                 make-hash-table
+                 hash-table-put!
+                 hash-table-get))
+
+
+(open-graphics)
+(define window (open-viewport "Debugger" 600 500))
+((draw-viewport window) (make-rgb 0.95 0.95 0.95))
+
+
+(define-mztake-process p ("random-Xs-v3.ss" [x-trace 6 26 bind 'num]))
+
+(define largest-bin 0)
+(define valcount (make-hash-table))
+
+(hold (x-trace . -=> .(printf-b "largest count: ~a" largest-bin)))
+
+
+(map-e (lambda (x)
+         (let* ([new-cnt (add1 (hash-table-get valcount x (lambda () 0)))]
+                [color (/ new-cnt (add1 largest-bin))])
+           
+           (when (> new-cnt largest-bin) (set! largest-bin new-cnt))
+           
+           (hash-table-put! valcount x new-cnt)
+           
+           ((draw-solid-rectangle window) (make-posn x  (- 500 (* 4 new-cnt)))
+                                          1 4 ;; width height
+                                          (make-rgb 0 (* 0.75 color) color))))
+       x-trace)
+
+(printf-b "count: ~a" (count-b x-trace))
+
+(start/resume p)

collects/mztake/demos/random/random-Xs-v3.ss

@@ -0,0 +1,7 @@
+(module |random-Xs-v3| mzscheme
+  
+  (define seed-list (call-with-input-file "rand.txt"
+                      (lambda (file)
+                        (let loop ([num (read file)])
+                          (if (eof-object? num) '()
+                              (loop (read file))))))))