Random uniform numbers (help)

From: Francogrex <franco@xxxxxxxx>
Date: Thu, 31 Jul 2008 12:28:14 -0700 (PDT)

Hi, I am trying to generate random deviates between 8 (that is 11-3)
and 14 (that is 11+3) using what i wrote below:

;;Prepare the list
(setf ls nil)
;;Generate the random deviates using random.
(dotimes (i 500)
(let ((rn (+ (random 11.0) 3.0)))
(if (> rn (- 11.0 3.0)) (setf ls (cons rn ls)))))
;;test whether you are within the limits
(apply #'min ls)
(apply #'max ls)

But this seems to me quite inefficient and bulky, I have a feeling
there is a more straightforward way but can't find it. Anyone can help
please? Thanks.
.

Follow-Ups:
- Re: Random uniform numbers (help)
  - From: carlos . ungil

Prev by Date: Re: paging all socket geniuses
Next by Date: Re: Lisp based DSL for bio on Ars Technica
Previous by thread: Scheme source transfromation to CPS style
Next by thread: Re: Random uniform numbers (help)
Index(es):
- Date
- Thread

Relevant Pages

Re: Random uniform numbers (help)
... (setf ls nil) ... ;;Generate the random deviates using random. ... But this seems to me quite inefficient and bulky, I have a feeling ...
(comp.lang.lisp)
Re: Random uniform numbers (help)
... (setf ls nil) ... ;;Generate the random deviates using random. ... Of course my previous message is wrong and the correct answer is (loop ...
(comp.lang.lisp)