/**
 Remove duplicate elements, in Neko
*/

var original = $array(1, 2, 1, 4, 5, 2, 15, 1, 3, 4)

/* Create a table with only unique elements from the array */
var dedup = function(a) {
    var size = $asize(a)
    var hash = $hnew(size)
    while size > 0 {
        var v = a[size - 1]
        var k = $hkey(v)
        $hset(hash, k, v, null)
        size -= 1
    }
    return hash
}

/* Show the original list and the unique values */
$print(original, "\n")
var show = function(k, v) $print(v, " ")
$hiter(dedup(original), show)
$print("\n")