Нахождение НОД на SQL. Алгоритм Евклида.

В данной статье описана реализация алгоритма Евклида для поиска наибольшего общего делителя двух чисел на Transact sql (t-sql).

Код хранимой процедуры:

-- Blog - https://progtask.ru

CREATE PROCEDURE GCD (@DigitOne BIGINT, @DigitTwo BIGINT) AS
	BEGIN
		DECLARE @Tmp BIGINT;
	
		WHILE @DigitTwo != 0
			BEGIN
				SET @Tmp = @DigitOne % @DigitTwo
				SET @DigitOne = @DigitTwo
				SET @DigitTwo = @Tmp
			END
			
		PRINT @DigitOne
	END

-- Blog - https://progtask.ru

CREATE PROCEDURE GCD (@DigitOne BIGINT, @DigitTwo BIGINT) AS

BEGIN

DECLARE @Tmp BIGINT;

WHILE @DigitTwo != 0

BEGIN

SET @Tmp = @DigitOne % @DigitTwo

SET @DigitOne = @DigitTwo

SET @DigitTwo = @Tmp

END

PRINT @DigitOne

END

Корректность работы проверялась в MS SQL Server 2008 R2.