fix empty tries.
This commit is contained in:
parent
06cd0c7414
commit
d68ef3f5a1
@ -29,6 +29,7 @@ extract_vars([], []).
|
||||
extract_vars((_-V).MapList, V.Vs) :-
|
||||
extract_vars(MapList, Vs).
|
||||
|
||||
complex_to_andor(empty, Map, Map, 0).
|
||||
complex_to_andor([list(Els)], Map0, MapF, Tree) :- !,
|
||||
complex_to_andor(Els, Map0, MapF, Tree).
|
||||
complex_to_andor([El1,El2|Els], Map0, MapF, or(T1,T2)) :- !,
|
||||
|
Reference in New Issue
Block a user