code:

---

function arraycomp($1, $2, optional $m)
    dim $
    for each $n in $2
        if (ascan($1,$n)>-1 and $m) or (ascan($1,$n)=-1 and 0=$m) $=$+chr(1)+$n endif
    next
    $arraycomp=split(substr($,2),chr(1))
endfunction

---