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

この記事は役に立ちましたか?
役に立った 役に立たなかった