Imaginary base numbers: Difference between revisions

m
→‎{{header|11l}}: Static type variables are supported now
m (syntax highlighting fixup automation)
m (→‎{{header|11l}}: Static type variables are supported now)
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
V QuaterImaginary_twoI :twoI = Complex(0, 2)
:invTwoI = inv(.:twoI)
 
String b2i
 
Line 338:
I k > 0
sum += prod * k
prod *= QuaterImaginary_twoI.:twoI
I pointPos != -1
prod = QuaterImaginary_invTwoI.:invTwoI
L(j) posLen + 1 .< .b2i.len
V k = Int(.b2i[j])
I k > 0
sum += prod * k
prod *= QuaterImaginary_invTwoI.:invTwoI
R sum
 
1,480

edits