//------------------------------------------------------
// HASHTBL のコピー
// dst: コピー先
// src: コピー元
// bCarryKey: 複製／変更
// CarryKey=FALSE(デフォルト)なら通常の複製となる
// bCarryKey=TRUEのとき
// 　dstにしか含まれていないキーとそれに関わる値を残す
//------------------------------------------------------
FUNCTION HASHTBL_COPY(var dst[],src[],bCarryKey=FALSE)
　DIM size = LENGTH(src)
　IFB FALSE=bCarryKey THEN
　　dst = HASH_REMOVEALL
　ENDIF
　DIM i
　FOR i=0 TO size-1
　　dst[src[i,HASH_KEY]]=src[i,HASH_VAL]
　NEXT
　RESULT = LENGTH(dst)
FEND 👀
Rock54: Caution(BBR-MD5:1341adc37120578f18dba9451e6c8c3b)