Ensure only unique values get added to a block

Picked up REBOL a few nights ago, and made a little lottery number generating script. Sometimes though, random will generate a duplicate number in appending values to [ ]. I saw that there was a unique function, but my attempt to use it to guarantee distinct values didn't work out. Any tips for ensuring only numbers that aren't already in the block get appended?

Be sure to use random/seed to get actual random numbers. This loop will build a list of 10 unique numbers: R E B O L [] random/seed now/time x: copy [] while [10 > length? x] [ y: random 100 if not find x y [append x y] ] print x halt

Is it possible to generate a seed off of a future time? As in, the upcoming date and time for the lotto drawing? In the midst of playing with a solution, I noticed that find returns 'none' or the value. I thought maybe a Boolean function would help in some circumstances so I made: hasValue?: func [blk val] [ either find blk val [True] [False] ] Do you think that's overkill or wasted code?

FOUND? will do a similar thing in returning TRUE when the value is found and FALSE when the value is not found: >> found? find blk val Try writing: >> source found? and see the output. FOUND? is a bit more efficient, and contains a less on get-word!s. You can also of course directly use: >> not none? find blk val

"and contains a less on get-word!s" should be "and contains a lesson on get-word!s" Sorry.

Thanks for the replies. I wasn't aware of found? I just dove in and tried to make what I wanted to make. There are lots of details that I need to learn.

Here is another version: >> until [10 = length? unique append b: [] random 100] print b == 13 94 29 51 32 16 93 68 69 25 If you put this into a function don't forget to re-initialize the block >> lotto: has [b] [b: copy [] until [10 = length? unique append b random 100] b]

submit response