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

svn: r167

Browse Source
This commit is contained in:
Jono Spiro 2004-08-10 01:07:53 +00:00
parent c65e299e5c
commit 11063d3abc
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mztake/demos/random/random-xs-test.ss → collects/mztake/demos/random/random-test.ss
View File

@ -1,8 +1,8 @@
#| The program being debugged (a module in the file "random-xs.ss") runs an infinite loop, #| The program being debugged (a module in the file "random.ss") runs an infinite loop,
binding "x" to a random number between [0,100) each iteration. binding "x" to a random number between [0,100) each iteration.
This MzTake script draws a histogram of the values of x seen over time, This MzTake script draws a histogram of the values of x seen over time,
in sync with the execution of "random-xs.ss". This will run until one in sync with the execution of "random.ss". This will run until one
bar reaches the top of the screen. bar reaches the top of the screen.
This histogram provides three pieces of information: This histogram provides three pieces of information:
@ -51,8 +51,8 @@
(define-mztake-process p ("random-xs.ss" [x-trace 4 6 bind 'x])) (define-mztake-process p ("random.ss" [x-trace 4 6 bind 'x]))
#| * Create a process to debug random-xs.ss #| * Create a process to debug random.ss
* Add a tracepoint at line 4, column 6; in the program, * Add a tracepoint at line 4, column 6; in the program,
this is right before the next iteration of the loop is called, this is right before the next iteration of the loop is called,
@ -104,4 +104,4 @@
(start/resume p) (start/resume p)
;; Start the process for random-xs.ss ;; Start the process for random.ss

2
collects/mztake/demos/random/random-xs.ss → collects/mztake/demos/random/random.ss
View File

@ -1,4 +1,4 @@
(module random-xs mzscheme (module random mzscheme
(define (run) (define (run)
(let loop ([x (random 100)]) (let loop ([x (random 100)])
(loop (random 100)))) (loop (random 100))))