自動化ツールuwsc使いよ集まれ

自動化ツールuwsc使いよ集まれat SOFTWARE

自動化ツールuwsc使いよ集まれ - 暇つぶし2ch593:名無しさん＠お腹いっぱい。
06/05/02 10:40:41 +WnOusMa0
>569
procedure shuffle(var a[])
　　dim n = length(a)
　　
　　dim i, r, tmp
　　for i=0 to n -1
　　　　r = random(n)
　　　　tmp = a[r]; a[r] = a[i]; a[i] = tmp
　　next
fend

次ページ