arrayPop

引数に指定した配列の最後の要素を取得します。配列arrayは要素一つ分だけ短くなります。

構文
arrayPop( Var arr )
引数
arr
配列。参照引数。
戻値
引数に指定した配列の最後の要素

プログラム

////////////////////////////////////////////////// // 【引数】 // arr : 配列。参照引数。 // 【戻値】 // 引数に指定した配列の最後の要素 ////////////////////////////////////////////////// FUNCTION arrayPop(Var array[]) DIM n = UBound(array) DIM res = array[n] RESIZE(array, n-1) RESULT = res FEND ////////////////////////////////////////////////// // 【引数】 // 配列 : 上限値を求める配列 // 【戻値】 // 配列の上限値 ////////////////////////////////////////////////// FUNCTION UBound(array[]) RESULT = RESIZE(array) FEND

プログラム実行例

配列に格納した数値の最後の要素を取り除く

DIM arr[3] = 24, 452, 578, 14 arrayPop(arr) FOR item IN arr PRINT item NEXT ////////////////////////////////////////////////// // 【引数】 // arr : 配列。参照引数。 // 【戻値】 // 引数に指定した配列の最後の要素 ////////////////////////////////////////////////// FUNCTION arrayPop(Var array[]) DIM n = UBound(array) DIM res = array[n] RESIZE(array, n-1) RESULT = res FEND ////////////////////////////////////////////////// // 【引数】 // 配列 : 上限値を求める配列 // 【戻値】 // 配列の上限値 ////////////////////////////////////////////////// FUNCTION UBound(array[]) RESULT = RESIZE(array) FEND
結果
24
452
578