code:

---

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

---

code:

---

$arr2 = 1,2,3,4," f",g,a,34,42,23,c,z,o,r

---

and then try this very line with my latest ...

See ?

(Ok ... one can now cry 'what about elements like '~~~k' )

[ 25. February 2003, 15:59: Message edited by: jpols ]

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

---

code:

---

function arraycomp($1, $2, optional $m)
    dim $s,$
    for each $ in $2
        $s=$s+iif((ascan($1,$)>-1 & $m) | (ascan($1,$)=-1 & 0=$m),chr(1)+$,"")
    next
    $arraycomp=split(substr($s,2),chr(1))
endfunction

---