Imaginary base numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 317: / Line 317: @@
    V denom = c.real * c.real + c.imag * c.imag
    R Complex(c.real / denom, -c.imag / denom)
-V QuaterImaginary_twoI = Complex(0, 2)
-V QuaterImaginary_invTwoI = inv(QuaterImaginary_twoI)
 T QuaterImaginary
+   :twoI = Complex(0, 2)
+   :invTwoI = inv(.:twoI)
    String b2i
@@ Line 338: / Line 338: @@
          I k > 0
             sum += prod * k
-         prod *= QuaterImaginary_twoI
+         prod *= .:twoI
       I pointPos != -1
-         prod = QuaterImaginary_invTwoI
+         prod = .:invTwoI
          L(j) posLen + 1 .< .b2i.len
             V k = Int(.b2i[j])
             I k > 0
                sum += prod * k
-            prod *= QuaterImaginary_invTwoI
+            prod *= .:invTwoI
       R sum