min := 1, max := 10
randArray := CreateRandArray(min, max)
F11:: MsgBox % MyRandom(randArray, 3)
MyRandom(randArray, exclude) {
static i := 0
Random, rand, 1 + (i < exclude ? i++ : i), randArray.MaxIndex()
n := randArray.RemoveAt(rand), randArray.InsertAt(1, n)
Return n
}
CreateRandArray(min, max) {
array := []
while min < max + 1
array.Push(min++)
Return array
} Random, var, 1, 10Как мне сделать так, чтобы при срабатывании, функция "вспоминала" последние три числа, что она генерировала ранее и не отправляла их соответственно. Ну если это сложно слишком, то хотя бы последнее не отправляла. Заранее спасибо.
]]>