Generalised floating point multiplication: Difference between revisions
Content added Content deleted
(Added Go) |
m (→{{header|Phix}}: removed out-of-date comment) |
||
Line 1,171: | Line 1,171: | ||
carry = 0, da, db, digit |
carry = 0, da, db, digit |
||
if zdx=1 then |
if zdx=1 then |
||
-- (let me know if you can fix this for me!) |
|||
-- if a[1]='-' or b[1]='-' then ?9/0 end if -- +ve only |
|||
if a[1]='-' then -- (-a)+b == b-a |
if a[1]='-' then -- (-a)+b == b-a |
||
return b_sub(b,negate(a,alphabet),alphabet) |
return b_sub(b,negate(a,alphabet),alphabet) |