Megatest

Differences From Artifact [ff0bb26c19]:

• File testzmq/random.scm — part of check-in [ff1b962889] at 2013-01-08 11:07:43 on branch remote-run-capability — Added/modified stuff for mockup (user: mrwellan, size: 187) [annotate] [blame] [check-ins using] [more...]

To Artifact [7090f9f44f]:

• File testzmq/random.scm — part of check-in [639b5034cc] at 2013-01-08 20:43:27 on branch remote-run-capability — Added numbers egg as needed to mockup (user: matt, size: 195) [annotate] [blame] [check-ins using] [more...]

1
2
3
4
5
6
7
8

(use posix)
(randomize (inexact->exact (current-seconds)))

(define low (string->number (cadr (argv))))
(define hi  (string->number (caddr (argv))))

(print (+ low (random (- hi low))))

|

1
2
3
4
5
6
7
8

(use posix numbers)
(randomize (inexact->exact (current-seconds)))

(define low (string->number (cadr (argv))))
(define hi  (string->number (caddr (argv))))

(print (+ low (random (- hi low))))