#include <Array.au3>
#include "ArrayUnique.au3"

;~ Dim $aNames[10][2] = [["Anton", ""], ["Berta", 15]]
Dim $aNames[10] = ["Antonia", "Anton", "Cäsar", "Ida", "Emil", "Friedrich", "Gustav", "Heinrich", "ida", "Julius"]

Dim $aUnique[100000]
For $I = 0 To Ubound($aUnique) - 1
	$r = Random(0, Ubound($aNames) - 1, 1)
    $aUnique[$I] = $aNames[$r]
Next

$ts = TimerInit()
$test = ArrayUnique($aUnique, 0, 1)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $test = ' & $test & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
$te = TimerDiff($ts)
ConsoleWrite(Round($te, 2) & " ms." & @CRLF)
_ArrayDisplay($test)


Dim $aNames[10][3] = [["Antonia", ""], ["Anton", ""], ["Cäsar", 300, "C++"], ["Dora", 24], ["Emil", 33, "AutoIt"], ["Friedrich", 57], ["Gustav", 53, "Sweden"], ["Heinrich", 34], ["Ida", 13], ["Julius", 77]]
Dim $aUnique[50000][3]
For $I = 0 To Ubound($aUnique) - 1
	$r = Random(0, Ubound($aNames) -1, 1)
    $aUnique[$I][0] = $aNames[$r][0]
	$aUnique[$I][1] = $aNames[$r][1]
	$aUnique[$I][2] = $aNames[$r][2]
Next

$ts = TimerInit()
$test = ArrayUnique($aUnique, 0, 1)
$te = TimerDiff($ts)
ConsoleWrite(Round($te, 2) & " ms." & @CRLF)
_ArrayDisplay($test)