Make suffix arrays prune repeated members before construction
parent
4b6e78709a
commit
9c308ac4c5
|
@ -29,6 +29,7 @@ IN: suffix-arrays
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: >suffix-array ( seq -- array )
|
: >suffix-array ( seq -- array )
|
||||||
|
members
|
||||||
[ suffixes ] map concat natural-sort ;
|
[ suffixes ] map concat natural-sort ;
|
||||||
|
|
||||||
SYNTAX: SA{ \ } [ >suffix-array ] parse-literal ;
|
SYNTAX: SA{ \ } [ >suffix-array ] parse-literal ;
|
||||||
|
|
Loading…
Reference in New Issue