Looks like others have a head start on me, but will toss this in anyway. I put together this little demonstration using two arrays.
code:
break on
Dim $Array[10]
Dim $Unique[10]
$Array=Split("1 2 4 5 2 1 5 6 7 1")
For $X=0 to UBound($Array)
? "Element = "+$Array[$X]
For $Y=0 to $X
If $Array[$Y] = $Array[$X]
$Unique[$X] = $Unique[$X]+1
"Unique count = " + $Unique[$X]
Endif
Next
Next
get $_
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.
