add 2 strings together! - GameCreators Forum

Author

Message

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 25th Apr 2007 11:43 Edited at: 25th Apr 2007 21:04

Link

Want to add some really big numbers together that just won't fit within the Integer range? This snippet adds two really large numbers together by representing them as strings. Note that it probably only works with postive numbers.

+ Code Snippet

a$ = "643365438404"
b$ = "95447549445"


q as integer
w as integer
q = 643365438404
w = 95447549445

print q," + ",w," = ",q + w
print "643365438404 + 95447549445 = 738812987849"
print a$," + ",b$," = ",add(a$, b$)


suspend for key
end

function add(n1 as string, n2 as string)
   if len(n1) < len(n2)
      temp$ = n1
      n1 = n2
      n2 = temp$
   endif
   ln1 = len(n1)
   ln2 = len(n2)
   answer$ = ""
   remainder = 0
   for a = 0 to len(n1)-1
      x = val(mid$(n1, ln1-a))
      if a < len(n2)
         y = val(mid$(n2, ln2-a))
      else
         y = 0
      endif
      ans = x+y+remainder

      r$ = str$(ans)
      if ans > 9
         answer$ = right$(r$,1) + answer$
         remainder = val(left$(r$, len(r$)-1))
      else
         answer$ = r$ + answer$
         remainder = 0
      endif
   next a
   if remainder > 0 then answer$ = str$(remainder) + answer$
endfunction answer$

Back to top

Profile PM Email Website

Jack

20

Years of Service

User Offline

Joined: 4th Oct 2004

Location: [Germany]

Posted: 25th Apr 2007 18:59

Link

This is really usefull.

its more exact than

answer$=str$(val(a$)+val(b$))

Nice function.

[/center]

Back to top

Profile PM Email Website

Lucy

17

Years of Service

User Offline

Joined: 19th Apr 2007

Location: Roanoke, VA USA

Posted: 25th Apr 2007 19:20

Link

Yay bignums!

No matter where you are... everyone is always connected.

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 25th Apr 2007 21:02 Edited at: 26th Apr 2007 06:53

Link

It was actually your DBP post Lucy that made me want to try and write the function in the first place.

Back to top

Profile PM Email Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 25th Apr 2007 22:23

Link

really cool Phaelax!!! Nice thinking outside the box.

I never had to approach this subject, but my initial guess would have been to make the large a number a "false" floating point. And then extract out the floating point on the result of the addtion. Haven't tried it though. And it seems your code would work for even larger numbers.

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / add 2 strings together!