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

Fix code identation

Browse Source
This commit is contained in:
Diogo Cordeiro 2018-11-24 15:06:39 +00:00
parent e6d3ae979f
commit 3357cbaa7e
1 changed files with 25 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
polymani.pl
View File

@ -112,13 +112,12 @@ polynomial_variable(X) :-
% Returns true if X is a power term, false otherwise.
%
power(P^N) :-
(
(
N #>= 1,
%% zcompare((<), -1, N),
polynomial_variable(P)
;
;
fail
).
).
power(X) :-
polynomial_variable(X).
%% Tests:
@ -153,8 +152,7 @@ term(N) :-
nonvar(N),
% Assert it as a number
number(N)
);
(
;
% If N is a free variable
not(compound(N)),
var(N),