//文字列の部分一致を判定する関数(strAにstrBが含まれていれば真)
//strBに二重配列を渡した場合、いずれかが部分一致すれば真
function CompareStringP(strA, strB)
{
	let sizeB2 = length(strB[0]);

	if( sizeB2 >= 2 ){
		let sizeB3 = length(strB);
		ascent( let i in 0..sizeB3 ){
			if( CompareStringP(strA, strB[i]) ){
				return 1;
			}
		}
		return 0;
	}

	let sizeA = length(strA);
	let sizeB = length(strB);

	ascent( let i in 0..(sizeA - sizeB) ){
		if( strA[0] == strB[0] ){
			let strC = strA;
			loop(sizeA - sizeB - i){
				strC = erase(strC, sizeB);
			}
			if( strC == strB ){
				return 1;
			}
		}
		strA = erase(strA, 0);
	}
	return 0;
}
