Error in rand

[Fanda]

Hello all!

It seems that there is a small error in 'rand':

Code: Select all

> (set 'N 10)
10
> (rand 3 N)
(2 0 1 1 0 2 2 2 2 0 2)
> (length (rand 3 N))
11

Length of the generated list should be 10 (= N). 'rand' keeps returning one more than is needed.

This way:

Code: Select all

> (rand 5 0)
(4)

Also:

Code: Select all

> (rand 5 -1)

never returns result (infinite loop).

- Fanda

PS: I am using newLISP v.8.9.0 on Win32 MinGW

[Lutz]

Thanks Fanda, this will work again in 8.9.1

Lutz