retroforth/interface/dedup.retro

29 lines
595 B
Forth
Raw Normal View History

# s:dedup
String deduplication for RetroForth.
(c) Arland Childers
~~~
'init s:keep fll:create 's:dedup.data var-n
{{
't1 var
't2 var
---reveal---
:s:dedup.register (s-)
s:keep @s:dedup.data swap &fll:append/value sip ;
:s:dedup.defined? (s-f)
!t1 #0 !t2
@s:dedup.data [ @t1 s:eq? @t2 or !t2 ] fll:for-each @t2 ;
:s:dedup.find (s-s)
!t1 #0 !t2
@s:dedup.data [ dup @t1 s:eq? [ !t2 ] [ drop ] choose ]
fll:for-each @t2 ;
:s:dedup (s-s)
dup s:dedup.defined? [ s:dedup.find ] [ s:dedup.register ]
choose ;
:s:unique? (s-f) s:dedup.defined? ;
}}
~~~