Очень маленький Random

@Jin X · Регистрация: 14.12.2014

Author24 — интернет-сервис помощи студентам

Всем привет!
Нужно сделать очень маленький Random от 0 до BX-1, возвращающий результат в AX.
Меньше 9 байт ничего в голову не приходит:

Assembler

                imul    bp,45
                inc     bp
                mov     ax,bp
                mul     bx
                xchg    ax,dx

Высокая точность распределения значений особо не нужна.
Но и in al,40h/rdtsc и т.п. не катят, т.к. при последовательных вызовах выдают похожие результаты.

Может, у кого есть интересные идеи на эту тему?

@Jin X · 03.09.2018, 11:50 **[ТС]**

На самом деле, Ethereal, очень многие сочетания чисел дают это:

Сообщение от Ethereal

прежде чем в ней встретится то-же самое число, должны по пути повстречаться по разу все возможные остальные

Даже вот такой код:

Assembler

imul ax,[Seed],-123  ; Тут можно использовать 45, 125, 9421, 9241 и пр.
inc ax
mov [Seed],ax
mul bx
xchg ax,dx

(вместо Seed можно использовать тот же bp или т.п.).

Добавлено через 2 минуты
Вот накидал себе на скорую руку.
Ставьте галочку "List" и увидите список первых 256 элементов массива N и значение Max, которое показывает максимальное значение массива N для for i := 0 to 65535 do Inc(N[Rand(0)]);

@Jin X · 03.09.2018, 11:58 **[ТС]**

Добавил во второй список первые 256 случайных значений.
Конечно, для -123 не очень красиво визуально получается (близкие значения чередуются).

	03.09.2018, 11:58