document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Imports System.Numerics \'My solution to Project Euler Problem 16
  2. Module PowerSum
  3.     Sub Main()
  4.         Dim meh As New BigInteger(2 ^ 1000)
  5.         Dim sum As Integer = 0
  6.         For Each d As Char In meh.ToString : sum += Integer.Parse(d) : Next
  7.         Console.WriteLine(sum)
  8.     End Sub
  9. End Module
');