[DEL] 원하는 합의 무작위 숫자 구하기

입력값: 개별최소값, 개별최대값, 개수, 총합
결과값: 전부 더하면 총합이 되는, 개수만큼의 무작위 숫자

5번째 값은 총합-(1~4합계) 가 되므로 총 4개의 무작위 수를 구하면 된다.

AMin: 개별최소값
AMax: 개별최대값
ARemain: 총합
ACount: 개수
AResult: 결과값

function GetRandom(AMin, AMax, ARemain, ACount: Integer;

  var AResult: array of Integer): Boolean;

var

  I: Integer;

  iMax: Integer;

begin

  Result := False;

  for I := 0 to Pred(ACount - 1) do

  begin

    iMax := ARemain div (ACount - I);

    if iMax < AMin then

      Exit;

    iMax := iMax + (iMax - AMin) * (ACount - I - 1);

    if iMax > AMax then

      iMax := AMax;

    AResult[I] := Random(iMax - AMin) + AMin;

    Dec(ARemain, AResult[I]);

  end;

  AResult[ACount - 1] := ARemain;

  Result := True;

end;