информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Атака на InternetПортрет посетителяСетевые кракеры и правда о деле Левина
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Бэкдор в xz/liblzma, предназначенный... 
 Три миллиона электронных замков... 
 Doom на газонокосилках 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Объединяй известные генераторы последовательно! 06.10.03 15:06  Число просмотров: 1308
Автор: HandleX <Александр М.> Статус: The Elderman
<"чистая" ссылка>
Берёшь любой «равномерный», как ты выразился, генератор...
И вот, после генерации числа, смотришь, к какому диапазону он относится... И если к тому, в котором вероятность должна быть ниже, пропускаешь это число и генеришь его снова... Вероятность появдения числа в «твоём» диапазоне падает в два раза. Если ещё надо уменьшить вероятность, опять проверяешь диапазон... Как ты думаешь, после пропуска второго числа на сколько уменьшиться вероятность? Правильно, в четыре раза! А потом в восемь и т.п. Тебе насколько надо, а то ты фигню какую-то (ниже) написал ;-)

> необходимо написать ГСЧ, который бы выдавал числа от 0 до
> 100 включительно, но случайность их была распределена по
> неравномерному закону. То есть с 70%-ной случайностью
> генериловалось число от 0 до 70 и соответственно с 30%-ной
> случайностью число от 71 до 100. Подскажите, как это
> реализовать на perl? (Это нужно для игрового автомата)
<programming> Поиск 






Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2024 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach