Another update from ingydotnet^djgoku

2015-11-18 06:14:39 +00:00 · 2015-11-18 06:14:39 +00:00 · 948b86eafa
commit 948b86eafa
parent 91df62d461
7604 changed files with 108452 additions and 22726 deletions
--- a/Task/Primality-by-trial-division/VBScript/primality-by-trial-division.vb
+++ b/Task/Primality-by-trial-division/VBScript/primality-by-trial-division.vb
@ -0,0 +1,21 @@
+Function IsPrime(n)
+	If n = 2 Then
+		IsPrime = True
+	ElseIf n <= 1 Or n Mod 2 = 0 Then
+		IsPrime = False
+	Else
+		IsPrime = True
+		For i = 3 To Int(Sqr(n)) Step 2
+			If n Mod i = 0 Then
+				IsPrime = False
+				Exit For
+			End If
+		Next
+	End If
+End Function
+
+For n = 1 To 50
+	If IsPrime(n) Then
+		WScript.StdOut.Write n & " "
+	End If
+Next