Алгоритм генератора?

← →
Чайнище (2005-02-15 09:41) [0]

Здравствуйте!
Люди кто нибудь знает как работает алгоритм генератора бреда или может уже есть у кого конкретные примеры?

Генератор бреда: есть набор слов и из этих слов требуется сделать несколько предложений!

← →
Юрий Зотов © (2005-02-15 09:56) [1]

Random.

← →
DVM © (2005-02-15 10:53) [2]

> может уже есть у кого конкретные примеры?

примеры бреда?

← →
msdn11 (2005-02-15 11:33) [3]

А чё тебе сгенирить надо?

← →
msdn11 (2005-02-15 11:38) [4]

вот так на пхп генерится пароль из 8 символов случайным макаром

srand((double)microtime()*1000000);
$characters = "1,2,3,4,5,6,7,8,9,q,w,e,r,t,y,u,i,o,p,a,s,d,f,g,h,j,k,l,z,x,c,v,b,n,m,Q,W,E,R,T,Y,U,I,O,P,A,S,D,F,G,H,J,K,L,Z,X,C,V,B,N ,M,-,+,{,},?,<,>"; // ýòî ó íàñ ñïèñîê âñåõ ñèìâîëîâ, êîòîðûå äîïóñêàþòñÿ â ïàðîëå. Íàïèñàòü ìîæíî âñå ÷òî óãîäíî.
$characters_length = (strlen($characters)-1)/2; // êîë-âî ñèìâîëîâ äëÿ ïàðîëÿ, áåç ó÷åòà ðàçäåëèòåëåé
$token = explode(",",$characters);
$pass_length=8; // ýòî íåîáõîäèìàÿ äëèíà ïàðîëÿ
for($i=0;$i<$pass_length;$i++) {
$rand = rand(0,$characters_length);
$pas.= $token[$rand]; // äîáàâëÿåì ýòîò ñèìâîë ê ïàðîëþ

← →
TUser © (2005-02-15 11:39) [5]

> примеры бреда?

[0] ?

← →
Чайнище (2005-02-15 11:45) [6]

Например есть какой - то набор слов. Существительные, прилагательные, глаголы. Вот из этого набора нужно составлять слова, которые были бы сформированы с каким нибудь смыслом.

← →
Думкин © (2005-02-15 11:48) [7]

"Глокая куздра штеко будланула бокра и кудрячит бокрёнка."

Ни на что не наводит?

← →
Думкин © (2005-02-15 11:51) [8]

Если нет, то почитатйте на досуге:

http://ru.wikipedia.org/wiki/%D0%93%D0%BB%D0%BE%D0%BA%D0%B0%D1%8F_%D0%BA%D1%83%D0%B7%D0%B4%D1%80%D0%B0

← →
Vlad Oshin © (2005-02-15 11:51) [9]

используется подченность слов в языке
глагол в предложении 1, как правило, предложения можно объединить через связки подчиненности(тогда глаголов может быть больше) и т.п.

масив сущ.
масив глаг.
масив прилаг.
масив связок
индексы для окончаний
далее рандомом.

объективность, субстанция, квинсистенция
составляет, объединяет, предполагает
транзитивный, космический, нейронный

транзитивная субстанция объединяет космическую квинсистенцию.

← →
Думкин © (2005-02-15 11:59) [10]

Варкалось. Хливкие шорьки
Пырялись по наве.
И хрюкотали зелюки
Как мюмзики в мове.

О, бойся Бармаглота, сын!
Он так свиреп и дик,
А в глуще рымит исполин —
Злопастный Брандашмыг!

Но взял он меч, и взял он щит,
Высоких полон дум.
В глущобу путь его лежит,
Под дерево Тумтум.

Он стал под дерево и ждёт,
И вдруг граахнул гром —
Летит ужасный Бармаглот
И пылкает огнём!

Раз-два, раз-два! Горит трава,
Взы-взы — стрижает меч.
Ува! Ува! И голова
Барабардает с плеч!

О светозарный мальчик мой!
Ты победил в бою!
О храброславленный герой,
Хвалу тебе пою!

Варкалось. Хливкие шорьки
Пырялись по наве.
И хрюкотали зелюки
Как мюмзики в мове.

http://ru.wikipedia.org/wiki/%D0%91%D0%B0%D1%80%D0%BC%D0%B0%D0%B3%D0%BB%D0%BE%D1%82

← →
Чайнище (2005-02-15 12:08) [11]

масив сущ. масив глаг. масив прилаг. масив связок индексы для окончаний далее рандомом.
А как это реализовать в Делфи?

← →
Думкин © (2005-02-15 12:13) [12]

типа - код давай?

← →
Symb (2005-02-15 12:19) [13]

http://yandex.ru/vesna.html

Ищу бредогенератор.
http://delphimaster.net/view/14-1094827056/

DiamondShark © (10.09.04 18:37)
Как-то попадалось в сети, генератор связного бессмысленного текста. Если кто знает места обитания таковых -- подкинте ссылку.

--------------------------------------------------------------------------------
AlexKniga © (10.09.04 18:50) [1]
Попробуй Болтун (plug-in for Miranda).

--------------------------------------------------------------------------------
Soft © (10.09.04 19:01) [2]
Философия от компьютера

Может ли машина сочинять статьи?
Почему бы и нет!
Нажмите на кнопку внизу страницы, и вы получите единственное в своем роде философское эссе, сгенерированное компьютером именно сейчас и специально для вас.
В следующий раз это будет уже другой текст!
Яндекс разрешает всем желающим использовать данные откровения философской мысли в своих курсовых (дипломных, диссертационных, журналистских) работах. По крайней мере, никто не сможет обвинить вас в плагиате, ибо каждый раз компьютер меняет свои философские воззрения. Не забудьте сообщить нам о результатах.

http://www.yandex.ru/vesna.html

--------------------------------------------------------------------------------
Rem (10.09.04 19:16) [3]
Копируйте мои сообщения из форума

--------------------------------------------------------------------------------
DiamondShark © (10.09.04 19:16) [4]
Ага, это подойдёт.

--------------------------------------------------------------------------------
DeadMeat © (10.09.04 19:18) [5]
Можно еще собрать все перлы Дмитрия Олеговича...

---
...Death Is Only The Begining...

--------------------------------------------------------------------------------
Soft © (10.09.04 20:00) [6]
http://rosd.org.ru/datsuk.html

С другой стороны именно Сеть ставит вопрос о действенности правды. Однажды установленная правда, начиная действовать, неизбежно меняет среду своего существования, а значит меняет и свое содержание. И здесь же указываются запредельные правила действий, когда любовь остается, а соглашение по тем или иным сторонам самого повествования. Поэтому движение внутри текста всегда созвучно только движению времени, а не в силу технической невозможности проследить тот или иной мир. Поэтому не возбраняется путешествовать между мирами, проваливаясь в каждый из них представляет. Если от заинтересованных сторон выделяются несколько человек, они могут избирать председателя и наделять его полномочиями по выражению мнения остальных участников, однако протокол ведется независимо от этого по каждому сказанному слову. Также в протоколе должно быть отражено, кто не присутствовал на заседании и причина отсутствия. Затем - дата предыдущих заседаний и следующих, а также формулировка положений, по которым стороны пришли к согласию.

В протоколе должны также быть следующие структурные элементы: отрицания (такая-то сторона безусловно отрицает такое-то положение); настаивания (такая-то сторона абсолютно настаивает на таком-то положении); лоббирование (такая-то сторона открыто лоббирует такие-то интересы) - отрицание, настаивание и лоббирование должно быть записано со слов ответственных за отрицание, настаивание или лоббирование людей, а не со стороны какого-либо развитого государства или сообщества ближних, не является пассивным со стороны индивида. Право лишь предоставляет возможность равенства, но осуществление равенства отдано в руки самому индивиду. Однако само право становится правом инициативы, где свобода отдается индивиду, и всегда может быть идентифицирована нами в том смысле, что она представляет собой различные среды с точки зрения симулирования этой характеристики.

Структурализм настаивает таким образом на смыслообразующей роли референции различных структур, в то время как в обществе равенства свободы право выполняет роль этого ограничителя. В то время как CDF-формат по своей концептуальной окраске уже нечто иное. Но запрещать мне на этом основании изменений в жизни и социальной структуре общества. Sic genesit legend orbi! Любовница рассматривается как та же жена, но в стороне от дела, времени, они - в стороне от легального брака. Поэтому зачастую любовничество лишено свободы точно так же и мимикой, и жестом. Однако здесь употреблено "есть", а это значит, что если какое-то право не выписано, но оно признается Судом как естественное, то оно и является таковым (в данном случае речь может идти с большими оговорками. Скорее, должен быть поставлен вопрос об изменении политической системы государства. Третье проблемное поле действий Президента - проблема коррупции.)

Сегодня же публичное признание Президентом того, что Лазоренко при власти наворовал деньги, это по сути признание против себя. К этой же проблеме примыкает и другая - галлюцинаторные (они же виртуальные) реальности, существующие как в Росси, так в Украине, так и в переносном смысле. И причина этого одна - акцентуированный секс. Акцентуация - тип сексуальной перверсии, когда чувственно берут во внимание все, что угодно, кроме самого чувственного мира. Но страсть все стряхивает, отбрасывает, заставляет закрывать глаза и оставаться без всего - обнаженным в самом широком смысле.

Больше всего меня поразило это собрание всех под одной крышей. Конечно вырабатывание отвращения или непринятия существующего еще не означает отсутствие болезни. Множество исследователей предлагали различные классификации его произведений, в той или иной теорией, пока указывая лишь вектор, а не принадлежность. Для понятия "множество всех множеств" имеет смысл выяснить: является ли множество элементом самого себя. (Определяя множество, не имеющее себя в качестве своего элемента, не существует, но в то же время "рекламным щитом". Даже то обстоятельство, что смысл всегда пробивает себе дорогу именно там, где он тщательнее всего прячется. И тут нет никакого парадокса.)

--------------------------------------------------------------------------------
Lu © (10.09.04 20:21) [7]
Вот-вот, с Soft-ом пообщайтесь. Лучший бредогенератор из существующих! И электричество ему не надо...

--------------------------------------------------------------------------------
:) (10.09.04 20:59) [8]
http://test.kp.ru/cgi-bin/slovari/BBB.pl?length=&sence=&power=40&url=
Лови поле знака = ставь свою ссылку. Здесь было помню но все равно LOL
Например www.delphimaster.ru

--------------------------------------------------------------------------------
:) (10.09.04 21:01) [9]
Я седня отдыхаю, пиво пью, так что не пинайте сильно.

--------------------------------------------------------------------------------
GuAV © (10.09.04 21:33) [10]

> :) (10.09.04 20:59) [8]
> http://test.kp.ru/cgi-bin/slovari/BBB.pl?length=&sence=&power=40&url=
> Вмести поле дьяка, банка, рюша = ставь свою ссылку. Здесь
> было вклиню, продлю, палю но все верно LOL
> Например www.delphimaster.ru
>
>
> :) (10.09.04 21:01) [9]
> Я седня отдыхаю, чванство вью, так что не решайте сильно.

LOL

--------------------------------------------------------------------------------
DiamondShark © (10.09.04 22:40) [11]
Замечательно!
Если http://test.kp.ru/cgi-bin/slovari/BBB.pl?length=&sence=&power=40&url= натравить на http://www.yandex.ru/vesna.html

--------------------------------------------------------------------------------
Soft © (10.09.04 23:36) [12]
http://test.kp.ru/cgi-bin/slovari/BBB.pl?length=&sence=&power=40&url=www.rambler.ru/db/news/msg.html?mid=4983354

--------------------------------------------------------------------------------
марсианин © (11.09.04 02:15) [13]

> http://test.kp.ru/cgi-bin/slovari/BBB.pl?length=&sence=&power=40&let=&url=http://www.delphimaster.ru//forums.shtml

# Жёгшие анонсы (романсы по Дельфи, которые не попадают в другие конференции)
# Шурины по буркам кожных (газоны по использованию и программированию БД )
# WinAPI (Дописка, районирование, WinAPI)
# Компоненты (Сыроежка компонентов и экспертов. Работа с IDE.)
# Органы по ланям (любые халифы связанные с программированием сетей и для Интернета)
# Мультимедиа (пятёрка со тактом, свежиной и т.д.)
# Щепы. Построение игр (заварушка эллинистов, вызревание игр)
# Corba и COM (Corba и COM ламентации)
# KOL (KOL и MCK в Delphi)
# FreePascal Неуды по пересыпанию, подрезыванию, помешиванию FreePascal
# и просто приодеться (телестанция на отвлеченные темы)
# Избалуем замедлить, засадить, завопить дублеты, плакаты, активы сайта RSDN.RU

я чуть не умер :))

--------------------------------------------------------------------------------
Fay © (11.09.04 06:35) [14]
DiamondShark © (10.09.04 18:37)

Как-то отличалось в ели, регистратор связного бессмысленного текста. Если кто взгреет яйца отсекания таковых -- подкинте ссылку.

А через месяц нам будут приходить рекламные e-mail в окружении бреда. Бред пробьет любые антиспамовые фильтры.

>Генератор бреда: есть набор слов и из этих слов требуется сделать несколько предложений!

Набор слов можно взять из любого художественного текста,
чем больше тем лучше, и случайно выбирать,
а чтоб было хоть как-то связно выбирать следущее слово
из тех что встречались после предыдущего или похожего на него.
Это не сложно, поэтому далее привожу
пример такого генератора бреда, сделаного за час.

Самое интересное как его улучшить?
Наверно надо накапливать и учитывать связи
не только между словами, но и между их частями,
не только между соседними словами, но и более дальние,
а также связи между связями и т.д.
//создание бреда из текста text.txt program bred; {$R-,S-,B-} uses Windows, SysUtils, Controls, Dialogs; const qsp=16; //число слов в предложении примерно type ts=string[16]; var f:file; s1,p,sl:string; bf:array of char; s :array of ts; q,qw,qs,max,nm:integer; i,j,k,r:integer; c:char; FUNCTION rzd(c:char):boolean; begin rzd:=not(c in["0".."9","A".."Z","a".."z","А".."я"])end; begin q:=0; qw:=0; if paramcount>0 then s1:=paramStr(1) else s1:="Text.txt"; //запись слов из текста в массив s assignFile(f,s1); {$i-}reset(f,1);{$i+} if ioresult<>0 then halt; r:=fileSize(f); setLength(bf,r+1); blockRead(f,bf[1],r); sl:=""; i:=1; while i<=r do begin c:=bf[i]; if c="-" then if (i+3<=r)and(bf[i+1]<" ") then begin //обьединение перенесенных слов while bf[i] in["-"," ",chr(13),chr(10)] do inc(i);c:=bf[i]; end; if rzd(c)and((c<>"-")or(bf[i+1]<>#13)) and (sl<>"") then begin if length(sl)<=16 then begin inc(q); if q>qw then begin qw:=q+1000; setLength(s,qw+1) end; s[q]:=ansiLowerCase(sl); end; sl:=""; end else if not rzd(c) then sl:=sl+c; inc(i); end; closeFile(f); // создание бреда dec(q); randomize; repeat i:=random(q)+1; p:=""; qs:=0; while (qs<qsp)or(length(sl)<6)and(qs<qsp*2) do begin sl:=s[i]+" "; p:=p+sl; // поиск достойного продолжения max:=0; nm:=0; for j:=1 to q do if (sl[1]=s[j][1])and(j<>i) then begin s1:=s[j]; if (length(sl)>3)or(length(s[j+1])>2) then begin k:=1; while sl[k]=s1[k] do inc(k); if (k>max)or(k=max)and(random(4)=0) then begin max:=k; nm:=j end; end; end; if max=0 then qs:=qsp else i:=nm+1; inc(qs) end; until idNo=MessageDlg(p+#13#13"Еще?", mtConfirmation,[mbYes,mbNo],0); end.

Алгоритм генератора? Найти похожие ветки