Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Tropical-algebra-overloading/Factor/tropical-algebra-overloading.factor
+++ b/Task/Tropical-algebra-overloading/Factor/tropical-algebra-overloading.factor
@ -0,0 +1,22 @@
+USING: io kernel math math.order present prettyprint sequences
+typed ;
+
+ALIAS: ⊕ max
+ALIAS: ⊗ +
+PREDICATE: posint < integer 0 > ;
+TYPED: ↑ ( x: real n: posint -- y: real ) * ;
+
+: show ( quot -- )
+    dup present rest but-last "⟶ " append write call . ; inline
+
+{
+    [ 2 -2 ⊗ ]
+    [ -0.001 -1/0. ⊕ ]
+    [ 0 -1/0. ⊗ ]
+    [ 1.5 -1 ⊕ ]
+    [ -0.5 0 ⊗ ]
+    [ 5 7 ↑ ]
+    [ 8 7 ⊕ 5 ⊗ ]
+    [ 5 8 ⊗ 5 7 ⊗ ⊕ ]
+    [ 8 7 ⊕ 5 ⊗   5 8 ⊗ 5 7 ⊗ ⊕   = ]
+} [ show ] each