Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 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