Option Strict On
Option Explicit On
Imports System.Console
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

New Topic/Question
Reply



MultiQuote








|