This was a terrible merge and I don't want to talk about it
This commit is contained in:
parent
65ddb5776f
commit
bb6bb1ab2f
@ -577,9 +577,7 @@ append_two_atoms_with_star(V1, V2, R) :-
|
||||
scale_polynomial(P, C, S) :-
|
||||
polynomial_to_list(P, L),
|
||||
maplist(append_two_atoms_with_star(C), L, L2),
|
||||
polynomial_to_list(S, L2),
|
||||
simplify_polynomial(S, S1),
|
||||
!.
|
||||
list_to_polynomial(L2, S).
|
||||
%% Tests:
|
||||
%% ?- scale_polynomial(3*x^2, 2, S).
|
||||
%@ S = 2*3*x^2.
|
||||
|
Reference in New Issue
Block a user