Update tests to use round subscripts (#722)

Author: Omnikar

tests/under.ua

@@ -170,24 +170,24 @@
 ⍤⤙≍ 5 ⍜-∘ 3 5
 ⍤⤙≍ 5 ⍜×∘ 3 5
 ⍤⤙≍ 5 ⍜÷∘ 3 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜ⁿ∘ 3 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜(ⁿ˜÷1)∘ 3 5
+⍤⤙≍ 5 ⁅₁₂ ⍜ⁿ∘ 3 5
+⍤⤙≍ 5 ⁅₁₂ ⍜(ⁿ˜÷1)∘ 3 5
 # Flipped Outside
 ⍤⤙≍ 5 ⍜˜+∘ 3 5
 ⍤⤙≍ 5 ⍜˜-∘ 3 5
 ⍤⤙≍ 5 ⍜˜×∘ 3 5
 ⍤⤙≍ 5 ⍜˜÷∘ 3 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜˜ⁿ∘ 3 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜˜÷∘ 3 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜(ⁿ⊙(˜÷1))∘ 3 5
+⍤⤙≍ 5 ⁅₁₂ ⍜˜ⁿ∘ 3 5
+⍤⤙≍ 5 ⁅₁₂ ⍜˜÷∘ 3 5
+⍤⤙≍ 5 ⁅₁₂ ⍜(ⁿ⊙(˜÷1))∘ 3 5
 # Normal Inside
 ⍤⤙≍ 5 ⍜(+3)∘ 5
 ⍤⤙≍ 5 ⍜(-3)∘ 5
 ⍤⤙≍ 5 ⍜(×3)∘ 5
 ⍤⤙≍ 5 ⍜(÷3)∘ 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜(ⁿ3)∘ 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜(÷3)∘ 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜(ⁿ˜÷1 3)∘ 5
+⍤⤙≍ 5 ⁅₁₂ ⍜(ⁿ3)∘ 5
+⍤⤙≍ 5 ⁅₁₂ ⍜(÷3)∘ 5
+⍤⤙≍ 5 ⁅₁₂ ⍜(ⁿ˜÷1 3)∘ 5
 # Flipped Inside
 ⍤⤙≍ 5 ⍜(˜+3)∘ 5
 ⍤⤙≍ 5 ⍜°(˜+3)∘ 5
@@ -197,11 +197,11 @@
 ⍤⤙≍ 5 ⍜°(˜×3)∘ 5
 ⍤⤙≍ 5 ⍜(˜÷3)∘ 5
 ⍤⤙≍ 5 ⍜°(˜÷3)∘ 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜(˜ⁿ3)∘ 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜°(˜ⁿ3)∘ 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜(˜÷3)∘ 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜(ⁿ˜÷1⊙3)∘ 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜°(ⁿ˜÷1⊙3)∘ 5
+⍤⤙≍ 5 ⁅₁₂ ⍜(˜ⁿ3)∘ 5
+⍤⤙≍ 5 ⁅₁₂ ⍜°(˜ⁿ3)∘ 5
+⍤⤙≍ 5 ⁅₁₂ ⍜(˜÷3)∘ 5
+⍤⤙≍ 5 ⁅₁₂ ⍜(ⁿ˜÷1⊙3)∘ 5
+⍤⤙≍ 5 ⁅₁₂ ⍜°(ⁿ˜÷1⊙3)∘ 5
 # Dipped Inside
 ⍤⤙≍ 5 ⍜(+⊙3)∘ 5
 ⍤⤙≍ 5 ⍜°(+⊙3)∘ 5
@@ -211,10 +211,10 @@
 ⍤⤙≍ 5 ⍜°(×⊙3)∘ 5
 ⍤⤙≍ 5 ⍜(÷⊙3)∘ 5
 ⍤⤙≍ 5 ⍜°(÷⊙3)∘ 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜(ⁿ⊙3)∘ 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜°(ⁿ⊙3)∘ 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜(ⁿ˜÷1⊙3)∘ 5
-⍤⤙≍ 5 ⍜×⁅1e12 ⍜°(ⁿ˜÷1⊙3)∘ 5
+⍤⤙≍ 5 ⁅₁₂ ⍜(ⁿ⊙3)∘ 5
+⍤⤙≍ 5 ⁅₁₂ ⍜°(ⁿ⊙3)∘ 5
+⍤⤙≍ 5 ⁅₁₂ ⍜(ⁿ˜÷1⊙3)∘ 5
+⍤⤙≍ 5 ⁅₁₂ ⍜°(ⁿ˜÷1⊙3)∘ 5
 
 ⍤⤙≍ 5 ⍜°√(+9) 4
 ⍤⤙≍ 5 ⍜∩°√+ 3 4
@@ -424,7 +424,7 @@ G ← ⍜(⊙⊙⊢) ⋅⊙∘
 ⍤⤙≍ 3 °⌅(°⊟|+) 1 2
 ⍤⤙≍ 68 ⍜⌅(+|⟜+|-)× 2 5 10
 ⍤⤙≍ 2 ⌝⌅(+|-) 3 5
-F ← ⌅(+|⊃⌊(⍜×⁅1e12◿1)|⟜+|-|-)
+F ← ⌅(+|⊃⌊(⁅₁₂◿1)|⟜+|-|-)
 ⍤⤙≍ 3 F 1 2
 ⍤⤙≍ [5 0.2] [°F] 5.2
 ⍤⤙≍ 68 ⍜F× 2 5 10

tests/units.ua

@@ -307,7 +307,7 @@ F ← ⍜⬚0⊏[] ⊸⊗0
 ⍤⤙≍ [1_2 3_4] [°⟜⊂ 1_2 1_2_3_4]
 
 # By-inverses
-Test! ← ⍤⤙≍ ⊃⊟(⍜×⁅1000000000000[⊸^0°⊸^0]) 2 5
+Test! ← ⍤⤙≍ ⊃⊟(⁅₁₂[⊸^0°⊸^0]) 2 5
 Test!+
 Test!-
 Test!˜-
@@ -486,7 +486,7 @@ F ← {⊓$A$B} # Track caller!
 ⍤⤙≍ i ℂ1 0
 ⍤⤙≍ ℂ0 4 ◿ 5 ℂ0 ¯1
 ⍤⤙≍ 2i √ ℂ0¯4
-⍤⤙≍ 2i ⍜×⁅1000000000000000 ⁿ1/2 ℂ0¯4
+⍤⤙≍ 2i ⁅₁₅ ⁿ1/2 ℂ0¯4
 ⍤⤙≍ 0 °(ℂ1) i
 ⍤⤙≍ ℂ.0 ⌝ℂ1 i