Quick fix
This commit is contained in:
parent
74d9e9cc5b
commit
9aeaebfded
12
polymani.pl
12
polymani.pl
@ -278,10 +278,10 @@ parse_polynomial_explicit(void-_, T) -->
|
||||
|
||||
parse_command(show(void, T)) --> %% NOTE Probably easier if the tree is always binary
|
||||
[show],
|
||||
parse_polynomial_explicit(T).
|
||||
parse_polynomial(T).
|
||||
parse_command(show(P, T)) -->
|
||||
[show],
|
||||
parse_polynomial_explicit(T),
|
||||
parse_polynomial(T),
|
||||
[as],
|
||||
[P].
|
||||
parse_command(show_all) -->
|
||||
@ -290,20 +290,20 @@ parse_command(store(P, T)) -->
|
||||
[let],
|
||||
[P],
|
||||
[be],
|
||||
parse_polynomial_explicit(T).
|
||||
parse_polynomial(T).
|
||||
parse_command(store(P, T)) -->
|
||||
[store],
|
||||
parse_polynomial_explicit(T),
|
||||
parse_polynomial(T),
|
||||
[as],
|
||||
[P].
|
||||
parse_command(simplify(T)) -->
|
||||
[simplify],
|
||||
parse_polynomial_explicit(T).
|
||||
parse_polynomial(T).
|
||||
parse_command(op(*, TN, TP)) -->
|
||||
[multiply],
|
||||
parse_number(TN),
|
||||
[by],
|
||||
parse_polynomial_explicit(_-_, TP).
|
||||
parse_polynomial(_-_, TP).
|
||||
|
||||
parse_input(command(TCL, TCR)) -->
|
||||
parse_command(TCL),
|
||||
|
Reference in New Issue
Block a user