配列のソート - いろいろ開発Wikiページ

メニュー

• トップページ
• HSP開発関連

モジュール・プラグイン

HSPモジュール・プラグインなど。

htmlプラグインエラー: このプラグインを使うにはこのページの編集権限を「管理者のみ」に設定してください。

---

配列のソート

HSPだけでなく、プログラム関連全般に言えることだと思いますが、配列のソートって、結構重要になってくると思います。

そこで、配列のソートについて簡単にまとめておきたいと思います。

まず、ｎ個の配列要素があるとします。それぞれはランダムに並んでいると仮定します。ソートするためには、とにかく順番に並べ替えればよいのですが、ほぼ無制限に並べ替えてもＣＰＵの負荷が高くなるだけなので、何回繰り返せばよいのかを計算で出してみたいと思います。

これには法則があるらしく、ｎ個の配列要素がランダムに並んでいる時、ソートを完了させるためには

　　（ｎ－１）×（ｎ－１）

回並べ替えればよいことになります。

たとえば、ＡからＥまでのアルファベットがランダムに並べられているとします。

　　Ｄ　Ｃ　Ｂ　Ａ　Ｅ

なぜ（ｎー１）×（ｎ－１）回かと言うと、仮に５つのアルファベットがソートしたい順番と全く逆に並んでいた場合、５つの要素を片側から２つずつ入れ替えていくと、まず４回入れ替えなければいけません。ただし、２つの要素がソートされていた場合は、並べ替えずに１回分カウントします。それらを４回繰り返すと、必ずソートしたい順番に並びます。

　　Ｅ　Ｄ　Ｃ　Ｂ　Ａ
　　￣　￣
そのため結果的に、ｎ個の配列要素がランダムに並んでいる時、ソートを完了させるためには（ｎ－１）×（ｎ－１）
回並べ替えればよいことになります。

↓こんな感じでいいと思いますが...、もし間違いがあればどなたか改良お願いします。

; 配列要素をソートするモジュール Ver.1.0 (sort.as)
; このスクリプトはHSP3専用です

#module __sort__

#deffunc sortnum int num_1,int num_2		; 2種類 の要素(int)をソートする

ret=0
if(num_1=num_2){
	ret=0
}else:if(num_1>num_2){
	ret=1
}else:if(num_1<num_2){
	ret=2
}
return ret

#deffunc sortdim array hairetu,int maxmin	; 1次元の配列要素をソートする

leng=length(hairetu)				; ここから 1次元かどうかチェック
leng2=length2(hairetu)
leng3=length3(hairetu)
leng4=length4(hairetu)

if(leng2!0)|(leng3!0)|(leng4!0):return -1
if(maxmin!1)&(maxmin!0):maxmin=0		; ここまで 1次元かどうかチェック

repeat leng-1					; maxmin =0なら 小さい順にソート
srt=0						; maxmin =1なら 大きい順にソート
repeat leng-1
st1=hairetu(srt)
st2=hairetu(srt+1)
taihi=0
if(st1>st2){
	if(maxmin=0){
		taihi=st1
		st1=st2
		st2=taihi
	}
}else:if(st1<st2){
	if(maxmin=1){
		taihi=st1
		st1=st2
		st2=taihi
	}
}
hairetu(srt)=st1
hairetu(srt+1)=st2
srt+=1
loop
loop

return 1

#global

この下に”sort.as”というファイルがあります。