Make suffix arrays prune repeated members before construction

2010-08-08 10:34:19 -05:00 · 2010-08-08 10:34:19 -05:00 · 9c308ac4c5
parent 4b6e78709a
commit 9c308ac4c5
1 changed files with 1 additions and 0 deletions
--- a/basis/suffix-arrays/suffix-arrays.factor
+++ b/basis/suffix-arrays/suffix-arrays.factor
@ -29,6 +29,7 @@ IN: suffix-arrays
 PRIVATE>

 : >suffix-array ( seq -- array )
+    members
    [ suffixes ] map concat natural-sort ;

 SYNTAX: SA{ \ } [ >suffix-array ] parse-literal ;