steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

boyer-moore: simplify M\ sequence search-from.

char-rename
John Benediktsson 2017-02-06 11:17:32 -08:00
parent 337d554c09
commit 0dbcbd50f6
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/boyer-moore/boyer-moore.factor
View File

@ -70,8 +70,7 @@ PRIVATE>
GENERIC: search-from ( seq from obj -- i/f ) GENERIC: search-from ( seq from obj -- i/f )
M: sequence search-from M: sequence search-from
dup length zero? [ 2drop 0 ] [ <boyer-moore> (search-from) ] if-empty ;
[ 3drop 0 ] [ <boyer-moore> (search-from) ] if ;
M: boyer-moore search-from (search-from) ; M: boyer-moore search-from (search-from) ;