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 = 6
		dim nFactor as integer = 1
 
			for i as integer = n  to 1 step -1
				nFactor *= i
			Next
 
		dim k as integer = 3
		dim kFactor as integer = 1
			for i as integer = k  to 1 step -1
				kFactor *= i
			Next
 
		dim k2 as integer = n-k		
		dim kFactor2 as integer = 1
			for i as integer = k2  to 1 step -1
				kFactor2 *= i
			Next
 
 
		kfactor *= kfactor2
 
		answer = nfactor / kfactor
 
		console.writeline("Answer is: " & answer)
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KJ1doYXQgaXMgdGhlIDEwMDAxIHN0IHByaW1lIG51bWJlcj8KUHVibGljIENsYXNzIEV1bGVyXzcKCVB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKQoJCUNvbnNvbGUuV3JpdGVsaW5lKCJQcm9qZWN0IEV1bGVyICM2IikKCQlDb25zb2xlLldyaXRlbGluZSgpCgkJQ29uc29sZS5Xcml0ZWxpbmUoIkdlbmVyYXRpbmcuLi4iKQoJCUNvbnNvbGUuV3JpdGVsaW5lKCkKCQlkaW0gYW5zd2VyIGFzIHVpbnQ2NCA9IDEKCQlkaW0gbiBhcyBpbnRlZ2VyID0gNgoJCWRpbSBuRmFjdG9yIGFzIGludGVnZXIgPSAxCgkKCQkJZm9yIGkgYXMgaW50ZWdlciA9IG4gIHRvIDEgc3RlcCAtMQoJCQkJbkZhY3RvciAqPSBpCgkJCU5leHQKCQkJCgkJZGltIGsgYXMgaW50ZWdlciA9IDMKCQlkaW0ga0ZhY3RvciBhcyBpbnRlZ2VyID0gMQoJCQlmb3IgaSBhcyBpbnRlZ2VyID0gayAgdG8gMSBzdGVwIC0xCgkJCQlrRmFjdG9yICo9IGkKCQkJTmV4dAoJCQoJCWRpbSBrMiBhcyBpbnRlZ2VyID0gbi1rCQkKCQlkaW0ga0ZhY3RvcjIgYXMgaW50ZWdlciA9IDEKCQkJZm9yIGkgYXMgaW50ZWdlciA9IGsyICB0byAxIHN0ZXAgLTEKCQkJCWtGYWN0b3IyICo9IGkKCQkJTmV4dAoJCQkKCQkJCgkJa2ZhY3RvciAqPSBrZmFjdG9yMgoJCQoJCWFuc3dlciA9IG5mYWN0b3IgLyBrZmFjdG9yCgkJCgkJY29uc29sZS53cml0ZWxpbmUoIkFuc3dlciBpczogIiAmIGFuc3dlcikKCUVuZCBTdWIKRW5kIENsYXNz