1:
val commonFactors: x : Expression -> Expression
Находит общий множитель полинома
1: 2: 3: 4: 5: 6: 7: 8: 9:
let expr = "4*x*y - 8*x*y*z" |> Infix.parseOrUndefined expr |> Infix.format |> printfn "%s" Polynomial.commonFactors expr |> Infix.format |> printfn "%s"
1: 2:
4*x*y - 8*x*y*z 4*x*y