arrayUnique

構文
arrayUnique( vararr[] )
引数
arr
戻値
引数に指定した配列の重複した値をEMPTYに置き換えます。

プログラム

//////////////////////////////////////////////////
// 【引数】
//   arr 
// 【戻値】
//   引数に指定した配列の重複した値をEMPTYに置き換えます。 
//////////////////////////////////////////////////
PROCEDURE arrayUnique(var arr[])
	HASHTBL array
	FOR n = 0 TO UBound(arr)
		IF array[arr[n]] = TRUE THEN
			arr[n] = EMPTY
		ELSE
			array[arr[n]] = TRUE
		ENDIF
	NEXT
FEND

//////////////////////////////////////////////////
// 【引数】
//   配列 : 上限値を求める配列 
// 【戻値】
//   配列の上限値 
//////////////////////////////////////////////////
FUNCTION UBound(array[])
	RESULT = RESIZE(array)
FEND