angen_2005.sql

IF OBJECT_ID('angen') IS NOT NULL DROP FUNCTION angen
GO

CREATE FUNCTION angen()
RETURNS NVARCHAR(MAX)
AS
BEGIN
  DECLARE
    @delimiters NVARCHAR(MAX),
    @delimiters_max INT,
    @delimiters_idx INT,
    @delimiter NVARCHAR(1)

  SELECT
    @delimiters = ' _|,;:.!?~@#$%^&+-*=/',
    @delimiters_max = 16,
    @delimiters_idx = 0,
    @delimiter = ''

  SELECT @delimiters_idx = ROUND(@delimiters_max * RandomValue, 0)
  FROM AngenRandom

  SET @delimiter = SUBSTRING(@delimiters, @delimiters_idx + 1, 1)

  DECLARE
    @adjectives_max INT,
    @adjectives_idx INT,
    @adjective NVARCHAR(MAX)

  SELECT @adjectives_max = COUNT(*) - 1
  FROM AngenAdjectives

  SELECT @adjectives_idx = ROUND(@adjectives_max * RandomValue, 0)
  FROM AngenRandom

  SELECT @adjective = AdjectiveValue
  FROM (
    SELECT AdjectiveValue, ROW_NUMBER() OVER(ORDER BY AdjectiveValue) RN
    FROM AngenAdjectives
  ) T
  WHERE RN = @adjectives_idx

  DECLARE
    @names_max INT,
    @names_idx INT,
    @name NVARCHAR(MAX)

  SELECT @names_max = COUNT(*) - 1
  FROM AngenNames

  SELECT @names_idx = ROUND(@names_max * RandomValue, 0)
  FROM AngenRandom

  SELECT @name = NameValue
  FROM (
    SELECT NameValue, ROW_NUMBER() OVER(ORDER BY NameValue) RN
    FROM AngenNames
  ) T
  WHERE RN = @names_idx

  DECLARE
    @number NVARCHAR(MAX)

  SELECT @number = RIGHT('000' + CAST(ROUND(999 * RandomValue, 0) AS NVARCHAR(MAX)), 3)
  FROM AngenRandom

  DECLARE
    @result NVARCHAR(MAX)

  SET @result = @adjective + @delimiter + @name + @delimiter + @number

  RETURN @result
END
GO