1 files changed, 63 insertions, 0 deletions
diff --git a/specifics/arith-test.pd b/specifics/arith-test.pd
new file mode 100644
index 0000000..3136228
--- /dev/null
+++ b/specifics/arith-test.pd
@@ -0,0 +1,63 @@
+#N canvas 365 120 687 494 10;
+#X text 18 12 This is the testclass for + \, - \, * \, / \, % \, mod
+\, ^ \, & \, |;
+#X text 78 136 Abelian Groups:;
+#X text 80 229 Abelian Monoids:;
+#X text 79 299 Rings (incl Fields):;
+#X obj 134 87 r \$0-b;
+#X obj 299 87 r \$0-b;
+#X obj 450 87 r \$0-b;
+#X obj 16 59 s \$0-b;
+#X obj 16 40 inlet bang;
+#X obj 14 414 r \$0-r;
+#X obj 14 433 outlet reports;
+#X obj 134 406 s \$0-r;
+#X obj 299 406 s \$0-r;
+#X obj 450 406 s \$0-r;
+#X obj 134 157 commutative-test \$1 +;
+#X obj 134 177 commutative-test \$1 *;
+#X obj 134 197 commutative-test \$1 ^;
+#X obj 134 247 commutative-test \$1 &;
+#X obj 134 267 commutative-test \$1 |;
+#X obj 134 317 distributive-test \$1 + *;
+#X obj 134 337 distributive-test \$1 ^ &;
+#X obj 299 247 associative-test \$1 &;
+#X obj 299 267 associative-test \$1 |;
+#X obj 299 157 associative-test \$1 +;
+#X obj 299 177 associative-test \$1 *;
+#X obj 299 197 associative-test \$1 ^;
+#X obj 450 197 invertible-test \$1 ^ ^;
+#X obj 450 177 invertible-test \$1 * /;
+#X obj 450 157 invertible-test \$1 + -;
+#X connect 4 0 14 0;
+#X connect 4 0 15 0;
+#X connect 4 0 16 0;
+#X connect 4 0 17 0;
+#X connect 4 0 18 0;
+#X connect 4 0 19 0;
+#X connect 4 0 20 0;
+#X connect 5 0 21 0;
+#X connect 5 0 22 0;
+#X connect 5 0 23 0;
+#X connect 5 0 24 0;
+#X connect 5 0 25 0;
+#X connect 6 0 26 0;
+#X connect 6 0 27 0;
+#X connect 6 0 28 0;
+#X connect 8 0 7 0;
+#X connect 9 0 10 0;
+#X connect 14 0 11 0;
+#X connect 15 0 11 0;
+#X connect 16 0 11 0;
+#X connect 17 0 11 0;
+#X connect 18 0 11 0;
+#X connect 19 0 11 0;
+#X connect 20 0 11 0;
+#X connect 21 0 12 0;
+#X connect 22 0 12 0;
+#X connect 23 0 12 0;
+#X connect 24 0 12 0;
+#X connect 25 0 12 0;
+#X connect 26 0 13 0;
+#X connect 27 0 13 0;
+#X connect 28 0 13 0;