14 lines
330 B
Plaintext
14 lines
330 B
Plaintext
;;; Initial array
|
|
lvars ar = {1 2 3 2 3 4};
|
|
;;; Create a hash table
|
|
lvars ht= newmapping([], 50, 0, true);
|
|
;;; Put all array as keys into the hash table
|
|
lvars i;
|
|
for i from 1 to length(ar) do
|
|
1 -> ht(ar(i))
|
|
endfor;
|
|
|
|
;;; Collect keys into a list
|
|
lvars ls = [];
|
|
appdata(ht, procedure(x); cons(front(x), ls) -> ls; endprocedure);
|