12 lines
225 B
Forth
12 lines
225 B
Forth
: uniqv { a n \ r e -- n }
|
|
a n cells+ to e
|
|
a dup to r
|
|
\ the write address lives on the stack
|
|
begin
|
|
r e <
|
|
while
|
|
r @ over !
|
|
r cell+ e skip-dups to r
|
|
cell+
|
|
repeat
|
|
a - cell / ;
|