如何让15个变量随机代入1-15这15个不同的数字

越前リョーマ

变量随机数，事件都做的到。

亿万星辰

殴打楼上。那个是C++的，根本通不过脚本编译
顺便寒一下亿万那个脚本
IamI 发表于 2009-7-12 16:22

为啥要寒人家……{:3_50:}

dbshy

亿万施主，老衲等着看你的脚本教程，阿弥陀佛

--------------快感炮王的防水补丁------------------------
用事件做吧

tommay

受教！

12# 越前リョーマ
然后弱问小柯如何用事件做？

新月の道化师

a = {0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13,14,14,15}
for i in 1..15
b[i]=a.shift[1]

越前リョーマ

受教！

12# 越前リョーマ
然后弱问小柯如何用事件做？
tommay 发表于 2009-7-12 19:56

不是给15个变量分别代入1~15的数字么？
直接变量操作：随机数1~15 即可。
不过由于是15个不同，所以要操作15次。

但是呢，如果变量的批操作也允许生成的随机数代入变量组是不同的话，也可以直接批操作，那样就简单多了。

如果是我理解错误，请自行处理。
---------------------------------------------------
好吧，我理解错了。不过还是做的到，就是麻烦点。

首先拿一个变量随机数，然后下一个变量随机数，条件分歧一样的话就重新随机数。虽然这样很麻烦，但是依旧可以做到。

亿万星辰

首先拿一个变量随机数，然后下一个变量随机数，条件分歧一样的话就重新随机数。虽然这样很麻烦，但是依旧可以做到。
越前リョーマ 发表于 2009-7-13 00:02

这里要考虑一个效率问题，本来整个过程应该有15次赋值操作，但用这样的方法非但增加了一个条件判断，同时还使得赋值操作的次数变得大于等于15次，也就是如果随机数15次恰好没有取重复的话是15次，否则就会多于15次了。所以说，就要考虑只做15次操作来实现整个目的。
先将1~15存储到一个数组中，接着依次从中随机拿走一个元素放入到目标数组中，这样的操作就必然是15次完成想要完成的操作了。
当然，如果理解事件操作不包括事件里的脚本的话，那实现起来就比较困难了。

玄月

更正 - -

1.   x = []
   
2.   for i in 1...16
   
3.     x[rand(i),0] = [i]
   
4.   end
   
5.   p x
   
6.   for i in 0...15
   
7.     $game_variables[i] = x[i]
   
8.     p $game_variables[i]
   
9.   end  
   
10.   

复制代码

这次这个没错了，简单明了，已经过测试

tommay

17# 越前リョーマ


如此说来，事件有何意义呢？

紫苏

要论效率的话，改变动态数组的长度效率无论如何也比不上交换元素吧，所以筛法是公认效率最高的方法：顺序储存 1-15 这 15 个数，生成随机数，从还未筛选的数中取走在随机数位置的那个元素，直到倒数第二个未筛选的数也筛选完毕

1. for i in 1..15
   
2. $game_variables[i] = i
   
3. end
   
4. 
   
5. i = 14
   
6. begin
   
7. r = rand(i) + 1
   
8. # 交换两个元素
   
9. $game_variables[i + 1] ^= $game_variables[r]
   
10. $game_variables[r] ^= $game_variables[i + 1]
    
11. $game_variables[i + 1] ^= $game_variables[r]
    
12. end until (i -= 1) < 2
    

复制代码