PL/SQLでマージソート

PL/SQLで配列のマージソートをしてみた。

配列Ａ…ソート済み

配列Ｂ…ソート済み

配列Ｃ…配列Ａと配列Ｂをマージソート後の格納用。

idx_a…配列ＡのINDEX

idx_b…配列ＢのINDEX

-- 配列Ａと配列Ｂを先頭項目の値の小さい方から順にマージソート

FOR i IN 配列Ａ.FIRST..配列Ａ.LAST + 配列Ｂ.LAST

LOOP

-- 配列Ａの先頭項目の方が小さい

IF

配列Ａ(idx_a).先頭項目の値 = LEAST(配列Ａ(idx_a).先頭項目の値 配列Ｂ(idx_b).先頭項目の値)

THEN

配列Ｃ(i) := 配列Ａ(idx_a); -- 配列Ａを格納

idx_a := idx_a + 1; -- 配列ＡのINDEXを次に進める

• • 配列Ｂの先頭項目の方が小さい
    

ELSIF

配列Ｂ(idx_b).先頭項目の値 = LEAST(配列Ａ(idx_a).先頭項目の値 配列Ｂ(idx_b).先頭項目の値)

THEN

配列Ｃ(i) := 配列Ｂ(idx_a); -- 配列Ｂを格納

idx_b := idx_b + 1; -- 配列ＢのINDEXを次に進める

END IF;

END LOOP;

で、配列Ａと配列Ｂをマージソートして配列Ｃができる。合ってるかな。。

でも、プログラムでこんなことする必要があるときはテーブル構成がマズイよね。