Re: make a list of different random numbers

On 2024-07-16, B. Pym <Nobody447095@here-nor-there.org> wrote:

Gauche Scheme
>
(use srfi-1)  ;; lset-adjoin (To act as "pushnew".)
(use srfi-27) ;; random-integer
>
(define (random-position) (+ 1 (random-integer 64)))
>
(do ((results '() (lset-adjoin =  results (random-position))))
  ((> (length results) 3)  results))
>
 ===>
(26 31 48 49)
>
Check for duplication:
>
(length (delete-duplicates
  (do ((results '() (lset-adjoin = results (random-position))))
    ((> (length results) 63)  results))))
>
 ===>
64

Since the range of the numbers is so tiny, it seems nicer
to implement it as a lottery draw:

1> (take 4 (nshuffle (vec-seq 1..65)))
#(32 31 23 39)

--
TXR Programming Language: http://nongnu.org/txr
Cygnal: Cygwin Native Application Library: http://kylheku.com/cygnal
Mastodon: @Kazinator@mstdn.ca