10 lines
353 B
Plaintext
10 lines
353 B
Plaintext
trits = {True, Maybe, False};
|
|
Print@Grid[
|
|
ArrayFlatten[{{{{Not}}, {{Null}}}, {List /@ trits,
|
|
List /@ Not /@ trits}}]];
|
|
Do[Print@Grid[
|
|
ArrayFlatten[{{{{operator}}, {{Null, Null,
|
|
Null}}}, {{{Null}}, {trits}}, {List /@ trits,
|
|
Outer[operator, trits, trits]}}]], {operator, {And, Or, Nand,
|
|
Nor, Xor, Xnor, Implies, Equivalent}}]
|