aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Ternary-logic/Maple/ternary-logic-1.maple Normal file
View file

@ -0,0 +1,6 @@
tv := [true, false, FAIL];
NotTable := Array(1..3, i->not tv[i] );
AndTable := Array(1..3, 1..3, (i,j)->tv[i] and tv[j] );
OrTable := Array(1..3, 1..3, (i,j)->tv[i] or tv[j] );
XorTable := Array(1..3, 1..3, (i,j)->tv[i] xor tv[j] );
ImpliesTable := Array(1..3, 1..3, (i,j)->tv[i] implies tv[j] );

33
Task/Ternary-logic/Maple/ternary-logic-2.maple Normal file
View file

@ -0,0 +1,33 @@
> tv := [true, false, FAIL];
tv := [true, false, FAIL]
> NotTable := Array(1..3, i->not tv[i] );
NotTable := [false, true, FAIL]
> AndTable := Array(1..3, 1..3, (i,j)->tv[i] and tv[j] );
[true false FAIL ]
[ ]
AndTable := [false false false]
[ ]
[FAIL false FAIL ]
> OrTable := Array(1..3, 1..3, (i,j)->tv[i] or tv[j] );
[true true true]
[ ]
OrTable := [true false FAIL]
[ ]
[true FAIL FAIL]
> XorTable := Array(1..3, 1..3, (i,j)->tv[i] xor tv[j] );
[false true FAIL]
[ ]
XorTable := [true false FAIL]
[ ]
[FAIL FAIL FAIL]
> ImpliesTable := Array(1..3, 1..3, (i,j)->tv[i] implies tv[j] );
[true false FAIL]
[ ]
ImpliesTable := [true true true]
[ ]
[true FAIL FAIL]