rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

correct answer substitution order, equating variables to themselves (#326)

Browse Source
This commit is contained in:
Mark Thom
2020-04-29 01:45:42 -06:00
parent 0e1226573a
commit 7e765fe726
4 changed files with 360 additions and 458 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/prolog/lib/charsio.pl
View File

@@ -4,6 +4,7 @@
:- use_module(library(iso_ext)).
:- use_module(library(error)).
:- use_module(library(lists), [append/3]).
fabricate_var_name(VarType, VarName, N) :-
char_code('A', AC),
@@ -45,9 +46,10 @@ make_new_var_name(VarType, V, VarName, N, N1, VarList) :-
extend_var_list(Value, VarList, NewVarList, VarType) :-
term_variables(Value, Vars),
extend_var_list_(Vars, 0, VarList, NewVarList, VarType).
extend_var_list_(Vars, 0, VarList, NewVarList0, VarType),
append(VarList, NewVarList0, NewVarList).
extend_var_list_([], _, VarList, VarList, _).
extend_var_list_([], _, VarList, [], _).
extend_var_list_([V|Vs], N, VarList, NewVarList, VarType) :-
( var_list_contains_variable(VarList, V) ->
extend_var_list_(Vs, N, VarList, NewVarList, VarType)