Megatest

random.scm at [e5d7dac0b8]
Login

File testzmq/random.scm artifact 7090f9f44f part of check-in e5d7dac0b8


(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))))