diff --git a/polymani.pl b/polymani.pl index 4a7fec7..cbaf1c2 100644 --- a/polymani.pl +++ b/polymani.pl @@ -70,6 +70,8 @@ polyplay :- %% Tests: %% ?- polyplay. +process_input(_). + %% nlp_number(?W:Atom, ?D:Int) is det % % Definition of a Alphabetical and Numerical relation @@ -303,8 +305,7 @@ parse_command(op(*, TN, TP)) --> [multiply], parse_number(TN), [by], - parse_polynomial(_-_, TP). - + parse_polynomial(TP). parse_input(command(TCL, TCR)) --> parse_command(TCL), [and],