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

regexp.dfa: more use of hash-sets.

John Benediktsson 2013-03-08 16:50:59 -08:00
parent 6ef0e711c8
commit 3db1e292a3
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/regexp/dfa/dfa.factor
View File

@ -43,9 +43,7 @@ IN: regexp.dfa
[ tagged-epsilon? not ] filter ; [ tagged-epsilon? not ] filter ;
: add-todo-state ( state visited-states new-states -- ) : add-todo-state ( state visited-states new-states -- )
2over key? [ 3drop ] [ 2over ?adjoin [ nip push ] [ 3drop ] if ;
[ conjoin ] [ push ] bi-curry* bi
] if ;
: add-todo-states ( state/condition visited-states new-states -- ) : add-todo-states ( state/condition visited-states new-states -- )
[ condition-states ] 2dip [ condition-states ] 2dip
@ -82,6 +80,6 @@ IN: regexp.dfa
: construct-dfa ( nfa -- dfa ) : construct-dfa ( nfa -- dfa )
dup initialize-dfa dup initialize-dfa
dup start-state>> condition-states >vector dup start-state>> condition-states >vector
H{ } clone HS{ } clone
new-transitions new-transitions
[ set-final-states ] keep ; [ set-final-states ] keep ;