Paste what you have copied :D

Status
Not open for further replies.
Matty

Matty

Placid Prospector
Donor
Mafia Host
Joined
Aug 6, 2011
Messages
359
Reaction score
610
30 20 15 10 10 5 2 1
Code: 
function binaryaddition(string1, string2)
        dim carry()
        dim array1()
        dim array2()
        dim sum()
     
        if len(string1)>len(string2) then
                x = len(string1)+1
        else
                x = len(string2)+1
        end if
     
        redim carry(x)
        redim array1(len(string1))
        redim array2(len(string2))
        redim sum(x)
     
        array1 = stringtoarray(string1)
        array2 = stringtoarray(string2)
        carry(0) = var2
     
        while y < x
                sum(y)=fullsum(array1(y),array2(y),carry(y))
                carry(y+1)=fullcarry(array1(y),array2(y),carry(y))
                y = y + 1
        wend
     
        binaryaddition = arraytostring(sum())
end function


It won't work, it's so damn annoying.
 
Status
Not open for further replies.
Top