64 Bit's in QB?

[adosorken]

Correct me if I'm wrong but...isn't a DOUBLE 64 bits?

[Zack]

In VB...a DECIMAL is 64 bits, right?

[adosorken]

There is no DECIMAL type in VB.

[TheBigBasicQ]

Yup double precision is 8bytes or 64Bits =P.

[Agamemnus]

2^32000 in 12 seconds. P2 400mhz. Extrapolation from digit-by-digit multiplication with strings. (a 4-bit array is the minimum for this computation)

Code:

CLS
DIM a%(0 TO 10000) 'should be as large as # of digits base 10 to store answer.
t1# = TIMER

a%(0) = 1
k% = 0
FOR i% = 0 TO 31999 '2 ^ 32000
j% = 0: DO
IF a%(j%) > 4 THEN
IF j% = k% THEN k% = k% + 1
a%(j%) = a%(j%) - 5: a%(j%) = a%(j%) * 2 + n%: n% = 1
ELSE
a%(j%) = a%(j%) * 2 + n%: n% = 0
END IF
IF j% = k% THEN EXIT DO
j% = j% + 1
LOOP
NEXT i%
FOR i% = 0 TO k%
a$ = LTRIM$(STR$(a%(i%))) + a$
NEXT i%

t2# = TIMER
PRINT a$
PRINT
PRINT t2# - t1#

[TheBigBasicQ]

Whoa! You made this?

[Agamemnus]

..............

Yes..

I think I figured out how to extend it:

Just change "< 4" to "< 4999" and "- 5" to "- 5000".

It's even faster then: 5 seconds.

[Z!re]

It's very nice, and fast :lol: but it doesent work for anything but 2^x


How would you do the 2 longs approach? (I can't get it to work)

[toonski84]

a double is 64-bits, but it's floating point. Though you can get numbers up crazy high with the exponential notation it uses.

[Z!re]

I mean a 64bit Integer type, I think it's called a dword (double word), no decimals.