板 1- 前 次 新 ﾚｽ
どんなくだらねぇ質問にもマジレスするスレPart14
[842]名無しさん(ザコ)：2007/09/25(火) 02:44:53 ID:o2PCn8xI0
For(i = 0 to 99)
Swap 適当[100-i] 適当[Random(100-i)]
Next
こんな感じかな
[843]名無しさん(ザコ)：2007/09/25(火) 04:57:57 ID:nFuosuHU0
俺なら
for i = 1 to 100
適当２[i] = Random(10000)
next
Sort 適当２ 昇順
j = 0
foreach i in 適当２
incr j
適当２[i] = 適当[j]
next 省9
前 次
0ch BBS 2005-06-05