Truth table: Difference between revisions
m
→{{header|Mathematica}}
(Added Quackery.) |
|||
Line 3,416:
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>VariableNames[data_] := Module[ {TokenRemoved},
TokenRemoved = StringSplit[data,{"~And~","~Or~","~Xor~","!","(",")"}];
Line 3,429:
Flatten[{#/.Rule[x_,y_] -> y,ReplaceAll[ToExpression[BooleanEquation],#]}]&/@TestDataSet]//Grid
]</lang>
Example usage:
<pre>TruthTable["V ~Xor~ (B ~Xor~ (K ~Xor~ D ) )"]
| |||