Artifact 4dbab301b915fb0de86c09d812f2d0516844f33a

• File _lib/gcj/!gcj-smpl.vbs
  • 2011-02-23 09:21:16 - part of checkin [4fd800b3a8] on branch trunk - Copied from private svn repository. (user: kinaba) [annotate]
• File lib/gcj/!gcj-smpl.vbs
  • 2011-02-23 11:18:09 - part of checkin [23dfcca431] on branch trunk - renamed _lib to lib (user: kinaba) [annotate]

'
' Written in VBScript
'

Function ReadLine()
	Dim s
	s = Split(WScript.StdIn.ReadLine, " ")
	For i = LBound(s) To UBound(s)
		s(i) = CLng(s(i))
	Next
	ReadLine = s
End Function

Function Gcd(a, b)
	If a = 0 Then
		Gcd = b
	Else
		Gcd = Gcd(b mod a, a)
	End If
End Function

Function Solve(T)
	Dim g, r
	g = Abs(T(1) - T(2))
	For i = 2 To UBound(T)
		g = Gcd(g, Abs(T(1) - T(i)))
	Next
	r = T(1) mod g
	If r = 0 Then
		Solve = 0
	Else
		Solve = g - r
	End If
End Function

C = ReadLine()(0)
For CaseID = 1 To C
	WScript.StdOut.WriteLine "Case #" & CaseID & ": " & Solve(ReadLine)
Next