Option Strict On
Option Explicit On
Imports System.Numerics (I had to add the Reference)
Dim F1 As BigInteger = 0 Dim F2 As BigInteger = 1 Dim F As BigInteger Dim FString As String Do F = F1 + F2 FString = F.ToString If Len(FString) > 49 Then FString = F.ToString("E49") Else FString = F.ToString("N0") End If WriteLine(FString) F1 = F2 F2 = F Loop
I'm up to 6.3898851458558178284455348202642608899252891622315 E10043 And counting ...
Now over 12,800 digits long. Way too much fun. And it's not even 9AM...
Wait, is it okay to post something like this in here or is there a better spot?
This post has been edited by Beach_Coder: 12 December 2011 - 06:58 AM