Data update

2026-02-01 16:33:20 -08:00 · 2026-02-01 16:33:20 -08:00 · 4bb20c9b71
commit 4bb20c9b71
parent 5150844a7d
7735 changed files with 38060 additions and 199180 deletions
--- a/Task/Perfect-numbers/VBScript/perfect-numbers.vb
+++ b/Task/Perfect-numbers/VBScript/perfect-numbers.vb
@ -1,17 +0,0 @@
-Function IsPerfect(n)
-	IsPerfect = False
-	i = n - 1
-	sum = 0
-	Do While i > 0
-		If n Mod i = 0 Then
-			sum = sum + i
-		End If
-		i = i - 1
-	Loop
-	If sum = n Then
-		IsPerfect = True
-	End If
-End Function
-
-WScript.StdOut.Write IsPerfect(CInt(WScript.Arguments(0)))
-WScript.StdOut.WriteLine