I have a list of functions, each containing none or more of the functions Plus
, Times
, Subtract
and Divide
. They could be in any arrangement and with any numbers. This is one such example.
HoldForm[Plus[3+Times[7,Subtract[9,Plus[4,5]],Divide[29,Subtract[4,3]]]]]*
There is an error here, The above should read: Plus[3,Times[7
The numbers can be any positive integer. I need to calculate just the Divide
and Subtract
functions to find out if they evaluate to 1 or 0 respectively as I consider functions in the list that have this property trivial and I want to filter them out.
I am somewhat a beginner with Wolfram/Mathematica code and I have been attempting to extract the Divide
and Subtract
parts as a list and then calculating just them parts but so-far my attempts at solving this have been totally unfruitful, partly because I can't know beforehand where the Divide
or Subtract
functions are in the function or how deep they will be.
Is there a way to accomplish this?
Edit: Just to help clarify what I am trying to achieve. I have a list of functions such as
{HoldForm[Plus[3,Times[7,Subtract[9,Plus[4,5]],Divide[29,Subtract[4,3]]]]],
HoldForm[Plus[7,Times[2,Divide[16,Subtract[9,Plus[4,1]]]]]],
HoldForm[Plus[3,Times[7,9],29]]}
I need to remove the first element from the list because it is a function that divides by 1 (and subtracts 0), making is only trivially different from the 3rd element of the list. After removing the first function I want to display the output like this
{$7+2 \frac{16}{9-(4+1)}$,$3+7\times 9+29$}
Subtract[9,Plus[4,5]]
ifPlus
is not included in your list? $\endgroup$Subtract[9,Plus[4,5]]
will evaluate to 0 and so it means the example is trivial as there will be another function in the list that is the same except it won'tSubtract[0]
$\endgroup$