Случайная неслучайная скидка

Однажды меня клиент попросил сделать механизм случайно выпадающей скидки на следующую покупку. 
Собственно тут в случайном выборе скидки ничего сложного, как вариант — поместить все скидки в массив, и использовать генератор случайных чисел от 0 до размера массива -1, что бы определить нужный индекс элемента этого массива.

Но потом в задаче появилось уточнение — скидки должны выпадать по обратной экспоненциальной зависимости. Т.е. к примеру скидка 5% должна выпадать гораздо чаще скидки 95%.

Желание клиента для меня вполне понятно, нечего постоянно раскидываться большими скидками, но пусть они иногда выпадают.  Почему экспоненциально — будем считать что для красоты (я не знаю откуда взялась эта идея).

Опишу тут два варианта решения, которые я нашел для себя.

1. Создать массив скидок, где некоторые скидки повторяются N раз ( N это "вес" числа ).

// Для примера создадим массив чисел (скидок) от 1 до 99
МассивЧисел = Новый Массив();
Счетчик = 1;
Пока Счетчик <= 100 Цикл
Массив.Добавить(Счетчик);
Счетчик = Счетчик + 1;
КонецЦикла;


// На основе массива значений скидок сделаем новый массив, где скидки будут повторятся пропорционально весу значения скидки
МассивПоВесу = СоздатьМассивПоВесу(МассивЧисел);

// Выберем случайное число в диапазоне от 0 до количества элементов массива
ГСЧ = Новый ГенераторСлучайныхЧисел();
СлучайноеЧисло = ГСЧ.СлучайноеЧисло(0, МассивПоВесу.Количество()-1);

// Нашли случайную скидку
СлучайнаяСкидка = МассивПоВесу[СлучайноеЧисло];



Функция СоздатьМассивПоВесу(МассивЧисел)

МассивПоВесу = Новый Массив;

// коэффициент, который показывает во сколько раз скидка 0% больше скидки 100% , можно выбрать по своему желанию
Коэффициент = 20;

Для каждого Элемент Из МассивЧисел Цикл

Вес = Exp( (100 - Элемент) / (100 / Log(Коэффициент)) );
Вес = Окр( Вес * 10, 0); // 10 - в данном случае подобрано эмпирически, для округления до удобного целого числа

Для Счетчик = 1 По Вес Цикл
МассивПоВесу.Добавить(Элемент);
КонецЦикла;

КонецЦикла;

Возврат МассивПоВесу;

КонецФункции

2. Получение скидки сложением весов чисел в цикле.

Для получения случайной скидки суммируем веса скидок, пока эта сумма не превысит случайное число, умноженное на сумму всех весов.

// Для примера создадим массив чисел (скидок) от 1 до 99
МассивЧисел = Новый Массив();
Счетчик = 1;
Пока Счетчик <= 100 Цикл
МассивЧисел .Добавить(Счетчик);
Счетчик = Счетчик + 1;
КонецЦикла;

// Для каждой скидки определим вес и поместим всё в таблицу значений
ТаблицаСкидок = СоздатьТаблицуВесовСкидок(МассивЧисел);

СуммаВесов = 0;
Для каждого СтрокаТЗ Из ТаблицаСкидок Цикл
СуммаВесов = СуммаВесов + СтрокаТЗ.Вес;
КонецЦикла;

// Случайное число 0 .. 1
ГСЧ = Новый ГенераторСлучайныхЧисел();
СлучайноеЧисло = ГСЧ.СлучайноеЧисло(0, 100) / 100;

Лямбда = СуммаВесов * СлучайноеЧисло;

// В цикле накапливаем вес, пока не сработает условие. Текущая строка при этом и будет найденная скидка
Накопление = 0;
Для Каждого СтрокаТЗ Из ТаблицаСкидок Цикл
Накопление = Накопление + СтрокаТЗ.Вес;
Если Накопление >= Лямбда Тогда
СлучайнаяСкидка = СтрокаТЗ.Скидка; // Нашли скидку
Прервать;
КонецЕсли;
КонецЦикла;


Функция СоздатьТаблицуВесовСкидок(Массив)

ТаблицаСкидок = Новый ТаблицаЗначений;
ТаблицаСкидок.Колонки.Добавить("Скидка");
ТаблицаСкидок.Колонки.Добавить("Вес");

Для каждого Элемент Из Массив Цикл

НоваяСтрока = ТаблицаСкидок.Добавить();
НоваяСтрока.Скидка = Элемент;

// коэффициент, который показывает во сколько раз скидка 0% больше скидки 100% , можно выбрать по своему желанию
Коэффициент = 20;

Коэф = 100 / Log(Коэффициент);
НоваяСтрока.Вес = Exp( (100 - Элемент) / Коэф);

КонецЦикла;

// На случай не отсортированного массива на входе
ТаблицаСкидок.Сортировать("Скидка");

Возврат ТаблицаСкидок;

КонецФункции

Ключевые моменты описаны в коде выше.

В обработке есть демонстрация работы обоих алгоритмов и отрисовка графика для метода сложения сумм весов. Кроме этого добавил еще вариант линейной зависимости.

Тестировалось в BAS ERP 2.1.6.3