Imports System
'What is the 10001 st prime number?
Public Class Euler_7
	Public Shared Sub Main()
		Console.Writeline("Project Euler #6")
		Console.Writeline()
		Console.Writeline("Generating...")
		Console.Writeline()
		dim answer as uint64 = 1
		dim n as integer = 13
		dim nFactor as uint64 = 1
 
			for i as uint64 = n  to 1 step -1
				nFactor *= i
			Next
 
		dim k as integer = 6
		dim kFactor as uint64 = 1
			for i as uint64 = k  to 1 step -1
				kFactor *= i
			Next
 
		dim k2 as integer = n-k		
		dim kFactor2 as uint64 = 1
			for i as uint64 = k2  to 1 step -1
				kFactor2 *= i
			Next
 
 
		kfactor *= kfactor2
 
		answer = nfactor / kfactor
 
		console.writeline("Answer is: " & answer)
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KJ1doYXQgaXMgdGhlIDEwMDAxIHN0IHByaW1lIG51bWJlcj8KUHVibGljIENsYXNzIEV1bGVyXzcKCVB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKQoJCUNvbnNvbGUuV3JpdGVsaW5lKCJQcm9qZWN0IEV1bGVyICM2IikKCQlDb25zb2xlLldyaXRlbGluZSgpCgkJQ29uc29sZS5Xcml0ZWxpbmUoIkdlbmVyYXRpbmcuLi4iKQoJCUNvbnNvbGUuV3JpdGVsaW5lKCkKCQlkaW0gYW5zd2VyIGFzIHVpbnQ2NCA9IDEKCQlkaW0gbiBhcyBpbnRlZ2VyID0gMTMKCQlkaW0gbkZhY3RvciBhcyB1aW50NjQgPSAxCgkKCQkJZm9yIGkgYXMgdWludDY0ID0gbiAgdG8gMSBzdGVwIC0xCgkJCQluRmFjdG9yICo9IGkKCQkJTmV4dAoJCQkKCQlkaW0gayBhcyBpbnRlZ2VyID0gNgoJCWRpbSBrRmFjdG9yIGFzIHVpbnQ2NCA9IDEKCQkJZm9yIGkgYXMgdWludDY0ID0gayAgdG8gMSBzdGVwIC0xCgkJCQlrRmFjdG9yICo9IGkKCQkJTmV4dAoJCQoJCWRpbSBrMiBhcyBpbnRlZ2VyID0gbi1rCQkKCQlkaW0ga0ZhY3RvcjIgYXMgdWludDY0ID0gMQoJCQlmb3IgaSBhcyB1aW50NjQgPSBrMiAgdG8gMSBzdGVwIC0xCgkJCQlrRmFjdG9yMiAqPSBpCgkJCU5leHQKCQkJCgkJCQoJCWtmYWN0b3IgKj0ga2ZhY3RvcjIKCQkKCQlhbnN3ZXIgPSBuZmFjdG9yIC8ga2ZhY3RvcgoJCQoJCWNvbnNvbGUud3JpdGVsaW5lKCJBbnN3ZXIgaXM6ICIgJiBhbnN3ZXIpCglFbmQgU3ViCkVuZCBDbGFzcw==