List是否包含另一List的所有元素

/// Description: list中是否包含数据,无序
ClassMethod IsListContains(origList, conList)
{
    q:(conList = "")||(origList = "") "N"
    s origLen = $ll(origList)
    s conLen = $ll(conList)
    q:(conLen > origLen) "N"
    for i = 1 : 1 : conLen {
        s str = $lg(conList, i)
        if ($lf(origList, str) = 0){
            return "N"
        }
    }
    q "Y"
}

IsListContains($lb(7,19),$lb(7))
> Y
IsListContains($lb(7,19),$lb(19, 7))
> Y
IsListContains($lb(7,19),$lb(19, 7, 10))
> N