diogo/polynomialmani.pl
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

discreetly fixes the code

Browse Source
This commit is contained in:
Diogo Cordeiro 2018-11-22 21:10:20 +00:00
parent 8c722af8e9
commit a4c231f1eb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
polimani.pl
View File

@ -288,7 +288,7 @@ simplify_polynomial(P, P2) :-
maplist(term_to_list, L9, L8), maplist(term_to_list, L9, L8),
delete(L9, 0, L10), delete(L9, 0, L10),
sort(0, @=<, L10, L11), sort(0, @=<, L10, L11),
polynomial_to_list(P2, L11), list_to_polynomial(L11, P2),
!. !.
%% Tests: %% Tests:
%% ?- simplify_polynomial(1, X). %% ?- simplify_polynomial(1, X).