Генерация случайных чисел без повторов

@denshik · Регистрация: 08.03.2017

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

Добрый день,
Можно ли в bat реализовать генерацию случайнх числе без повторов. Скажем, диапозон генерации от 1 до 10, выполняем функцию random 5 раз.

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
@echo off
 
set /a loopcount=5
 
:loop
set /a rnumber=%random% %%10 +1
echo %rnumber%
set /a loopcount=loopcount-1
if %loopcount%==0 goto exitloop
goto loop
 
:exitloop
pause

volodin661 · 26.05.2017, 22:28

посмотри сам знаешь где описание алгоритма перетасовки Фишера-Йетса ( Fisher–Yates shuffle )

@alpap · 26.05.2017, 23:01

Не по теме:

казалось бы после 5го черного уже красное быть должно, ан нет (чтоб ...) - опять черное!

volodin661 · 27.05.2017, 04:55

В помощь начинающему forисту.
Под спойлером 100 пентад из случайных неповторяющихся чисел от 0 до 9

Кликните здесь для просмотра всего текста

(9 6 0 5 2)
(0 3 5 7 4)
(5 7 2 9 6)
(3 6 9 8 4)
(5 2 9 6 1)
(7 6 0 8 1)
(9 8 7 3 2)
(7 4 5 2 0)
(6 1 0 5 4)
(0 9 5 2 3)
(4 5 7 9 1)
(5 4 1 0 2)
(6 8 7 3 9)
(2 7 1 9 6)
(6 8 4 1 9)
(8 1 0 9 4)
(8 0 7 3 5)
(1 4 6 2 0)
(8 7 1 5 4)
(3 8 1 7 9)
(2 1 6 7 5)
(3 1 7 9 8)
(4 0 3 6 5)
(6 0 4 8 9)
(6 3 2 0 4)
(2 9 3 6 0)
(4 5 7 6 0)
(6 2 5 9 1)
(9 7 4 0 6)
(1 3 8 4 5)
(0 8 6 9 4)
(6 5 4 8 9)
(9 0 5 1 6)
(8 6 7 0 9)
(2 6 3 5 9)
(4 8 5 1 3)
(1 5 7 3 6)
(6 1 3 9 7)
(0 5 7 4 1)
(5 1 7 9 6)
(5 2 9 6 3)
(7 3 5 0 1)
(0 3 2 6 8)
(9 5 4 7 2)
(0 1 2 7 6)
(9 8 3 0 1)
(7 5 0 8 4)
(6 8 9 5 0)
(8 3 5 9 0)
(6 5 7 1 0)
(8 5 6 1 3)
(5 1 2 8 3)
(4 8 2 7 1)
(5 1 9 4 8)
(3 7 1 2 6)
(7 2 9 6 8)
(9 2 3 1 0)
(0 8 4 2 5)
(6 2 3 9 5)
(5 1 2 0 8)
(3 2 7 9 6)
(4 3 7 6 0)
(3 5 2 9 1)
(8 0 1 5 6)
(2 9 8 1 5)
(9 4 7 2 3)
(0 2 4 1 5)
(0 9 6 1 4)
(3 0 4 9 7)
(9 5 1 6 3)
(9 8 3 6 5)
(8 7 3 5 1)
(0 6 8 3 5)
(2 9 1 0 7)
(2 8 9 3 1)
(4 0 8 3 5)
(4 5 8 9 3)
(5 8 4 3 9)
(7 9 1 3 2)
(9 2 3 1 8)
(0 5 2 4 9)
(0 6 7 9 3)
(1 5 2 6 9)
(1 7 2 9 8)
(4 6 8 3 7)
(8 2 0 4 7)
(8 7 3 5 6)
(3 7 9 4 0)
(4 5 9 0 6)
(8 2 1 7 0)
(8 5 4 1 0)
(7 8 3 4 6)
(2 8 5 9 4)
(6 8 3 7 4)
(2 8 4 0 9)
(7 4 5 1 3)
(7 9 3 4 6)
(6 1 8 9 2)
(2 1 5 4 9)
(7 3 6 5 0)

@alpap · 27.05.2017, 21:16

по примеру volodin661, тоже использовал 5ти числовую, но однократную группу, т.е. при каждом запуске будем наблюдать строку из пяти не повторяющихся чисел:

Windows Batch file
1
2
3
4
5
6
7
8
9
10
@echo off
set g=5 &: Количество чисел в группе
set min=0& set max=9 &: Диапазон чисел от... до...
 
setlocal enabledelayedexpansion
set/a g=g*2+1
for /l %%a in (1,1,%g%) do set/a m=!random!%%(max-min+1)+min& set $_!m!=!m!
for /f "tokens=2 delims==" %%a in ('set $_') do set/a n+=1& set "z!n!=%%a"
echo %z1% %z2% %z3% %z4% %z5%
pause>nul

Добавлено через 2 часа 56 минут
еще вот так гарантированно разные числа в группе

Windows Batch file
1
2
3
4
5
6
7
8
9
10
@echo off
set min=0& set max=9
if not exist $ >$ (for /l %%a in (%min% 1 %max%) do @echo %%a)
for /f "tokens=2" %%a in ('"cmd/v/c for /f "delims^=" %%a in ($) do @echo !random! %%a|sort"') do (
 setlocal enabledelayedexpansion 
 set/a n+=1& set "m!n!=%%a"
)
del $
echo %m1% %m2% %m3% %m4% %m5%
pause

volodin661 · 28.05.2017, 16:33

Алгоритм выглядит так:

for i from last downto 1 do:

let j = random integer in range 0 ≤ j ≤ i

swap items［i］ with items［j］

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

volodin661 6686 / 2278 / 347 Регистрация: 10.12.2013 Сообщений: 7,871
	26.05.2017, 22:28
	посмотри сам знаешь где описание алгоритма перетасовки Фишера-Йетса ( Fisher–Yates shuffle ) 0

@alpap
	26.05.2017, 23:01
	Не по теме: казалось бы после 5го черного уже красное быть должно, ан нет (чтоб ...) - опять черное! 0

volodin661 6686 / 2278 / 347 Регистрация: 10.12.2013 Сообщений: 7,871
	27.05.2017, 04:55
	В помощь начинающему forисту. Под спойлером 100 пентад из случайных неповторяющихся чисел от 0 до 9 Кликните здесь для просмотра всего текста (9 6 0 5 2) (0 3 5 7 4) (5 7 2 9 6) (3 6 9 8 4) (5 2 9 6 1) (7 6 0 8 1) (9 8 7 3 2) (7 4 5 2 0) (6 1 0 5 4) (0 9 5 2 3) (4 5 7 9 1) (5 4 1 0 2) (6 8 7 3 9) (2 7 1 9 6) (6 8 4 1 9) (8 1 0 9 4) (8 0 7 3 5) (1 4 6 2 0) (8 7 1 5 4) (3 8 1 7 9) (2 1 6 7 5) (3 1 7 9 8) (4 0 3 6 5) (6 0 4 8 9) (6 3 2 0 4) (2 9 3 6 0) (4 5 7 6 0) (6 2 5 9 1) (9 7 4 0 6) (1 3 8 4 5) (0 8 6 9 4) (6 5 4 8 9) (9 0 5 1 6) (8 6 7 0 9) (2 6 3 5 9) (4 8 5 1 3) (1 5 7 3 6) (6 1 3 9 7) (0 5 7 4 1) (5 1 7 9 6) (5 2 9 6 3) (7 3 5 0 1) (0 3 2 6 8) (9 5 4 7 2) (0 1 2 7 6) (9 8 3 0 1) (7 5 0 8 4) (6 8 9 5 0) (8 3 5 9 0) (6 5 7 1 0) (8 5 6 1 3) (5 1 2 8 3) (4 8 2 7 1) (5 1 9 4 8) (3 7 1 2 6) (7 2 9 6 8) (9 2 3 1 0) (0 8 4 2 5) (6 2 3 9 5) (5 1 2 0 8) (3 2 7 9 6) (4 3 7 6 0) (3 5 2 9 1) (8 0 1 5 6) (2 9 8 1 5) (9 4 7 2 3) (0 2 4 1 5) (0 9 6 1 4) (3 0 4 9 7) (9 5 1 6 3) (9 8 3 6 5) (8 7 3 5 1) (0 6 8 3 5) (2 9 1 0 7) (2 8 9 3 1) (4 0 8 3 5) (4 5 8 9 3) (5 8 4 3 9) (7 9 1 3 2) (9 2 3 1 8) (0 5 2 4 9) (0 6 7 9 3) (1 5 2 6 9) (1 7 2 9 8) (4 6 8 3 7) (8 2 0 4 7) (8 7 3 5 6) (3 7 9 4 0) (4 5 9 0 6) (8 2 1 7 0) (8 5 4 1 0) (7 8 3 4 6) (2 8 5 9 4) (6 8 3 7 4) (2 8 4 0 9) (7 4 5 1 3) (7 9 3 4 6) (6 1 8 9 2) (2 1 5 4 9) (7 3 6 5 0) 0

volodin661 6686 / 2278 / 347 Регистрация: 10.12.2013 Сообщений: 7,871
	28.05.2017, 16:33
	Алгоритм выглядит так: for i from last downto 1 do: let j = random integer in range 0 ≤ j ≤ i swap items［i］ with items［j］ 0