[решено] Генератор случайных чисел пропускает некоторые значения

[subuday77]

Здравствуйте.

В коде:
@echo off
set CHAR=1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
:1
set N=37
set /a R=%random%/32768+%N%*%random%/32768+1
for /f "tokens=%R%" %%q in ("%CHAR%") do (set C=%%q)
set N=%C%
echo:%N%
if %N%==37 pause
if %N%==36 pause
if %N%==35 pause
if %N%==34 pause
if %N%==33 pause
if %N%==32 pause
goto 1

Пауза не сработает, потому что номера с 32 по 37 не выпадают.

Если записать так:
@echo off
set CHAR=1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
:1
set N=37
set /a R=%random%/32768+%N%*%random%/32768+1
for /f "tokens=%R%" %%q in ("%CHAR%") do (set N=%%q)
echo:%N%
if %N%==37 pause
if %N%==36 pause
if %N%==35 pause
if %N%==34 pause
if %N%==32 pause
goto 1

Начинает выпадать 37. При этом номера с 32 по 36 не выпадают всё равно.
Что тут не так?

P.S. Это только модуль большой программы. И да, сам по себе он выглядит бессмысленно. :tomato2:

[megaloman]

subuday77, @Echo Off
cls
Set /A MIN=1
Set /A Max=37

Set /A i=0
:Begin
Set /A R=%MIN%+(%MAX%-%MIN%+1) * %random%/32768
Set /A R%R%+=1

Set /A i+=1
If Not %i% EQU 5000 GoTo :Begin

FOR /L %%i IN (%MIN%,1,%MAX%) DO Call :Out %%i

pause
GoTo :Eof

:Out
Call Set RR=%%R%1%%
Echo R%1 %RR%
GoTo :Eof
@Echo Off
cls
Set /A MIN=1
Set /A Max=37

Set "CHAR=1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37"

:Begin
Set "N=not defined"
Set /A R=%MIN%+(%MAX%-%MIN%+1) * %random%/32768
For /f "tokens=%R%" %%q in ("%CHAR%") Do Set "N=%%q"
Echo R=%R% N=%N%
If %R%==32 Echo R=%R% N=%N% &pause
If %R%==33 Echo R=%R% N=%N% &pause
If %R%==34 Echo R=%R% N=%N% &pause
If %R%==35 Echo R=%R% N=%N% &pause
If %R%==36 Echo R=%R% N=%N% &pause
If %R%==37 Echo R=%R% N=%N% &pause
GoTo :Begin @Echo Off
cls
Set /A MIN=1
Set /A Max=37

Set "CHAR=1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37"

:Begin
Set /A R=%MIN%+(%MAX%-%MIN%+1) * %random%/32768
Call :Substr "N" %R% %CHAR%

If %N%==32 Echo %N% &pause
If %N%==33 Echo %N% &pause
If %N%==34 Echo %N% &pause
If %N%==35 Echo %N% &pause
If %N%==36 Echo %N% &pause
If %N%==37 Echo %N% &pause
GoTo :Begin

:Substr
FOR /L %%i IN (2,1,%2) DO Shift /3
Set "%~1=%3"
GoTo :Eof

[subuday77]

Спасибо!
Я решил ещё проще, если не использовать for и прочую приблуду типа токенов, то и CHAR не нужен:
@echo off
:1
SET /A N=1+(37-1+1)*%random%/32768
echo:%N%
if %N%==37 pause
if %N%==36 pause
if %N%==35 pause
if %N%==34 pause
if %N%==33 pause
if %N%==32 pause
goto 1

Собственно, всё.

Но у меня вопрос.
FOR /L %%i IN (2,1,%2) DO Shift /3 Set "%~1=%3" »

Как это работает? Можно чуть подробнее?

[megaloman]

subuday77, Я и в угаре воскресного дня не мог предположить, что CHAR=1 2 3 4 5 6 7 8 9 10 11 12 13 .... это реальные подстроки, я предполагал, что-то похожее на CHAR=tralala kuku ogogo ..., а цифры перечислены для простоты.
Изменение содержимого (сдвиг) подставляемых параметров для пакетного файла.

SHIFT [/n]

Команда SHIFT при включении расширенной обработки команд поддерживает ключ
/n, задающий начало сдвига параметров с номера n, где n может быть от 0 до 9.
Например, в следующей команде:

SHIFT /2

%3 заменяется на %2, %4 на %3 и т.д., а %0 и %1 остаются без изменений.У меня организована подпрограмма для выбора подстроки в строке.
Call :Substr "N" %R% %CHAR%
"N" - имя переменной, куда занесу выбранную подстроку
в %R% номер подстроки в строке %CHAR%. По Вашей постановке внутри подстроки нет пробелов, подстроки разделяются пробелами. Давайте для определенности возьмем:
Call :Substr "N" 5 1 2 3 4 5 6 7 8 9 10 11 12 13 ....
То есть в подпрограмме %1 это "N", %2 это 5 (то есть номер выбираемой подстроки)
Я хочу, чтобы на месте %3 была нужная подстрока
Поэтому, начиная с 3 места я в цикле сдвигаю аргументы нужное число раз посредством Shift
А затем присваиваю переменной (в данном случае после применения %~1 это N) значение аргумента, который сейчас на 3 месте.