Author: Peter Brouwers | Website: http://www.derijen.nl/taiji

In an attempt to generate 10 unique, non-doubling random numbers I came up with this solution:

Set Variable: "i" = 1
Loop While (i <> 11)
      Set Variable: "rnd" = Random (10)
      Set Variable: "x" = 1
      Loop While (x <> (Length(Temp)+1))
            If ((Substring (Temp, x, 1))  eq rnd)
                  Set Variable: "rnd" = ""
            End If
            Set Variable: "x" = x+1
      End Loop
      If (rnd ne "")
            Set Variable: "Temp" = Temp & rnd
            Set Variable: "i" = i + 1
      End If
End Loop

Use it at random!

Let's have a closer look at this code step by step. First we set a Variable called "i" which is set to the value 1, for use in the Loop While.

Set Variable: "i" = 1

The first loop runs 10 times, because we need 10 numbers.

Loop While (i <> 11)

We use the Random function and put its outcome into Variable "rnd"

Set Variable: "rnd" = Random (10)

» Level Advanced

Added: 2000-03-07 Rating: 7 Votes: 293 1 2 3 4 5 6 7 8 9 10 (10 being the highest) Thank you for voting! We have encountered an error. Please try again later. You've already voted.

» Author

No Information Given

» Download

Download the files used in this tutorial.

Download (11 kb)

» Forums

More help? Search our boards for quick answers!