OpenEuphoria

Fw: code-block

• Posted by Michael Nelson <MichaelANelson at WORLDNET.ATT.NET> Sep 10, 2000
• 337 views

I meant to send this via the list in case others are interested in the code,
but accidentally sent it to Wolf privately (that's a switch).

-- Mike Nelson

> wolfgang fritz wrote:
>
> > ... Sunday mornings  ;-(
> > I need a function that will return, say, any random number from 1 to 10,
> > *except* the number I call it with.
> >
> > function anything_but( integer x )
> > -- return rand() ??
> >
>
>
> Wolf, this will do it:
>
> function anything_but(integer x)
>     integer y
>     y=x
>     while x=y do
>         y=rand(10)
>     end  while
>     return y
> end function
>
> A more generic solution for any range, with as many exclusions as desired:
>
> function anything_but(integer min,integer max,sequence exclude)
>     integer r
>     while 1 do
>         r=rand(max-min+1)+min-1
>         if not find(r,exclude) then return r
>     end while
> end function
>
> -- Mike Nelson
>