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