Skip to content
Snippets Groups Projects
Commit b3315224 authored by Taddeüs Kroes's avatar Taddeüs Kroes
Browse files

Fixed bug in nary-operator flattening

parent 864add40
No related branches found
No related tags found
No related merge requests found
......@@ -23,8 +23,8 @@
in
let rec flatten_nary = function
| [] -> []
| Nary (op, Nary (op2, left) :: right) :: tl when op2 = op ->
Nary (op, flatten_nary left @ flatten_nary right) :: flatten_nary tl
| Nary (op1, Nary (op2, left) :: right) :: tl when op1 = op2 ->
flatten_nary (Nary (op1, flatten_nary left @ flatten_nary right) :: tl)
| hd :: tl -> hd :: flatten_nary tl
in
match terms |> transform_ops |> flatten_nary with
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment