TSQL Challenge 14 - Solution by Adam Machanic (2)



DECLARE @t TABLE (Data VARCHAR(40))

INSERT @t (Data) SELECT '9992EDC6-D117-4DEE-B410-4E5FAE46AE97'
INSERT @t (Data) SELECT '0BFC936B-BD9A-4C6A-AFB2-CF3F1752F8B1'
INSERT @t (Data) SELECT '4A73E7EB-7777-4A04-9258-F1E75097977C'
INSERT @t (Data) SELECT '5AAF477C-274D-400D-9067-035968F33B19'
INSERT @t (Data) SELECT '725DA718-30D0-44A9-B36A-89F27CDFEEDE'
INSERT @t (Data) SELECT '8083ED5A-D3B9-4694-BB04-F0B09C588888'

SELECT
	t.Data,
	s.Char,
	s.Pos,
	s.Len
FROM @t AS t
CROSS APPLY
(
	SELECT
		x.Char,
		x.Number AS Pos,
		COALESCE(NULLIF(PATINDEX('%[^'+x.Char+']%', SUBSTRING(t.Data, x.Number, x.MaxSequenceLen))-1, -1), x.MaxSequenceLen) AS Len,
		MAX(COALESCE(NULLIF(PATINDEX('%[^'+x.Char+']%', SUBSTRING(t.Data, x.Number, x.MaxSequenceLen))-1, -1), x.MaxSequenceLen)) OVER() AS MaxLen,
		COUNT(*) OVER() AS NumSeq
	FROM
	(
		SELECT 
			SUBSTRING(t.Data, w.Number, 1) AS Char,
			w.Number,
			CASE
				WHEN w.Number = 25 THEN 12
				WHEN w.Number = 26 THEN 11
				WHEN w.Number = 27 THEN 10
				WHEN w.Number = 28 THEN 9
				WHEN w.Number IN (1, 29) THEN 8
				WHEN w.Number IN (2, 30) THEN 7
				WHEN w.Number IN (3, 31) THEN 6
				WHEN w.Number IN (4, 32) THEN 5
				WHEN w.Number IN (5, 10, 15, 20, 33) THEN 4
				WHEN w.Number IN (6, 11, 16, 21, 34) THEN 3
				WHEN w.Number IN (7, 12, 17, 22, 35) THEN 2
			END AS MaxSequenceLen
		FROM
		(
			SELECT 1 UNION ALL SELECT 2 UNION ALL 
			SELECT 3 UNION ALL SELECT 4 UNION ALL 
			SELECT 5 UNION ALL SELECT 6 UNION ALL
			SELECT 7 UNION ALL SELECT 10 UNION ALL
			SELECT 11 UNION ALL SELECT 12 UNION ALL
			SELECT 15 UNION ALL SELECT 16 UNION ALL
			SELECT 17 UNION ALL SELECT 20 UNION ALL
			SELECT 21 UNION ALL SELECT 22 UNION ALL
			SELECT 25 UNION ALL SELECT 26 UNION ALL
			SELECT 27 UNION ALL SELECT 28 UNION ALL
			SELECT 29 UNION ALL SELECT 30 UNION ALL
			SELECT 31 UNION ALL SELECT 32 UNION ALL
			SELECT 33 UNION ALL SELECT 34 UNION ALL
			SELECT 35
		) AS w (Number)
		WHERE
			SUBSTRING(t.Data, w.Number - 1, 1) <> SUBSTRING(t.Data, w.Number, 1)
			AND SUBSTRING(t.Data, w.Number, 1) = SUBSTRING(t.Data, w.Number + 1, 1)
	) AS x
) AS s
ORDER BY
	s.MaxLen DESC,
	s.NumSeq DESC,
	t.Data,
	s.Pos

Did you understand how this solution work? If you find it difficult to understand, you can Request an Explanation or you can Write an explanation to help others better understand this.