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 = 14
		dim nFactor as integer = 1
 
			for i as integer = n  to 1 step -1
				nFactor *= i
			Next
 
		dim k as integer = 7
		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

SW1wb3J0cyBTeXN0ZW0KJ1doYXQgaXMgdGhlIDEwMDAxIHN0IHByaW1lIG51bWJlcj8KUHVibGljIENsYXNzIEV1bGVyXzcKCVB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKQoJCUNvbnNvbGUuV3JpdGVsaW5lKCJQcm9qZWN0IEV1bGVyICM2IikKCQlDb25zb2xlLldyaXRlbGluZSgpCgkJQ29uc29sZS5Xcml0ZWxpbmUoIkdlbmVyYXRpbmcuLi4iKQoJCUNvbnNvbGUuV3JpdGVsaW5lKCkKCQlkaW0gYW5zd2VyIGFzIHVpbnQ2NCA9IDEKCQlkaW0gbiBhcyBpbnRlZ2VyID0gMTQKCQlkaW0gbkZhY3RvciBhcyBpbnRlZ2VyID0gMQoJCgkJCWZvciBpIGFzIGludGVnZXIgPSBuICB0byAxIHN0ZXAgLTEKCQkJCW5GYWN0b3IgKj0gaQoJCQlOZXh0CgkJCQoJCWRpbSBrIGFzIGludGVnZXIgPSA3CgkJZGltIGtGYWN0b3IgYXMgaW50ZWdlciA9IDEKCQkJZm9yIGkgYXMgaW50ZWdlciA9IGsgIHRvIDEgc3RlcCAtMQoJCQkJa0ZhY3RvciAqPSBpCgkJCU5leHQKCQkKCQlkaW0gazIgYXMgaW50ZWdlciA9IG4tawkJCgkJZGltIGtGYWN0b3IyIGFzIGludGVnZXIgPSAxCgkJCWZvciBpIGFzIGludGVnZXIgPSBrMiAgdG8gMSBzdGVwIC0xCgkJCQlrRmFjdG9yMiAqPSBpCgkJCU5leHQKCQkJCgkJCQoJCWtmYWN0b3IgKj0ga2ZhY3RvcjIKCQkKCQlhbnN3ZXIgPSBuZmFjdG9yIC8ga2ZhY3RvcgoJCQoJCWNvbnNvbGUud3JpdGVsaW5lKCJBbnN3ZXIgaXM6ICIgJiBhbnN3ZXIpCglFbmQgU3ViCkVuZCBDbGFzcw==