code:

---

$s=$s+iif(ascan($1,$)+$m>0 | ascan($1,$)+$m=-1,chr(1)+$,"")

---

to really be a golf-line

[ 25. February 2003, 16:41: Message edited by: Lonkero ]

code:

---

$s=$s+iif(ascan($1,$)+$m<>0,chr(1)+$,"")

---

this one is not tested though

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:

---

if (ascan($1,$n)>-1 and $m) or (ascan($1,$n)=-1 and 0=$m) $=$+chr(1)+$n endif

---

code:

---

if ascan($1,$n)+$m<>0 $=$+chr(1)+$n endif

---

code:

---

  
		$arr1 = a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
		$arr2 = 1,2,3,4,f,g,a,34,42,23,c,z,o,r

		"results for arraycomp(); elements that don't match:" ? ?
		for each $e in arraycomp($arr1, $arr2)
		    ":" $e ?
		next
		? "results for arraycomp(); matching elements:" ? ?
		for each $e in arraycomp($arr1, $arr2, 1)
		    ":" $e ?
		next

		get $

---

code:

---

  
results for arraycomp(); elements that don't match:

:1
:2
:3
:4
:f
:g
:34
:42
:23
:c
:z
:o
:r

results for arraycomp(); matching elements:

:f
:g    
:a
:c
:z
:o
:r

---

code:

---

 
results for arraycomp(); elements that don't match:

:1
:2
:3
:4
:34
:42
:23

results for arraycomp(); matching elements:

:f
:g
:a
:c
:z
:o
:r

 

---

code:

---

if ascan($1,$n)+$m<0 | (ascan($1,$n) & $m) $=$+chr(1)+$n endif 

---

quote:

---

results for arraycomp(); elements that doesn't match:
----------
1
2
3
4
34
42
23
----------

results for arraycomp(); matching elements:
----------
1
2
3
4
f
34
42
23
z
r
----------

---

code:

---

 if (ascan($1,$n)>-1 and $m) or ascan($1,$n)+$m<0 $=$+chr(1)+$n endif
 

---

code:

---

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

---