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