- 764 名前：名前は開発中のものです。 mailto:sage [2009/03/07(土) 17:54:11 ID:55GGct9p]
- ソースねぇ…、とりあえずこれぐらいなら理解できる？
randomize
max = 100
dim xx,max
repeat max
xx(cnt) = rnd(1000)
loop
gosub *mesAll
repeat max-1
cc = cnt
repeat max-cc-1
c2 = cnt
if xx(c2) > xx(c2+1){
keep = xx(c2+1)
xx(c2+1) = xx(c2)
xx(c2) = keep
}
loop
loop
gosub * mesAll
stop
