".implode(' ',$p); $k0=0; foreach($p as $e) { if(++$k0 > 74) break; if(++$k > 2048) break; if(in_array($e,$r)) continue; $r[]=$e; $o.="\t\"".$e."\"".($k==2048?'':',')."\n"; } //header("Content-type: application/json; charset=utf-8"); //header("Access-Control-Allow-Origin: *"); //die(wu(implode(' ',$p))); } header("Content-type: text/plain; charset=windows-1251"); die("#[rustfmt::skip] pub const WORDLIST_RUSSIAN: [&str; 2048] = [\n".$o."];"); // implode(' ',$p)."

strlen: ".sizeof($p)); } /// JSON: получить все слова длиной length или (и) начинающиеся на буквы из набора first /// https://lleo.me/rifma/index.php?word=length&length=14 /// https://lleo.me/rifma/index.php?word=length&length=3&first=x /// https://lleo.me/rifma/index.php?word=length&first=абвгд /// https://lleo.me/rifma/index.php?word=length&length=14&first=абвгд if($word=='length') { // json_die('{"OK":"Success"}'); $length=RE00('length'); $first=uw(urldecode(RE("first"))); if(!$length && empty($first)) json_die('{"error":"length=0"}'); $WHE=array(); if($length > 0) $WHE[]="CHAR_LENGTH(slovo) = ".intval($length); elseif($length < 0) $WHE[]="CHAR_LENGTH(slovo) <= ".intval(-$length); if(!empty($first)) { $fr=array(); $a=str_split($first); foreach($a as $l) $fr[]="`slovo` LIKE '".e($l)."%'"; $WHE[]="(".implode(' OR ',$fr).")"; } // die("WHERE ".implode(' AND ',$WHE)); $p=ms("SELECT * FROM `lleoold`.`accentus` WHERE ".implode(' AND ',$WHE),"_a1"); json_die(implode(' ',$p)); } /// JSON: получить случайное слово /// https://lleo.me/rifma/index.php?word=randword if($word=='randword') { $s=ms("SELECT * FROM `lleoold`.`accentus` LIMIT ".(rand(0,ms("SELECT COUNT(*) FROM `lleoold`.`accentus`","_l"))-1).",1","_1"); json_die('{"word":"'.$s['slovo'].'"}'); } /// JSON: получить случайных 5 слов через пробел /// https://lleo.me/rifma/index.php?word=rand5word if($word=='rand5word') { $col=ms("SELECT COUNT(*) FROM `lleoold`.`accentus`","_l"); $p=array();for($i=0;$i<5;$i++) $p[]=ms("SELECT `slovo` FROM `lleoold`.`accentus` LIMIT ".(rand(0,$col)-1).",1","_l"); json_die(implode(' ',$p)); } $s=ms("SELECT * FROM `lleoold`.`accentus` WHERE `slovo`='".e($word)."'","_1"); $rifma=(empty($s['rifma'])? strtr($word,"бвгджщзмцыюяэо%","пфктшшснчиуаеё#") : $s['rifma']); $max=intval(isset($_GET["max"])?$_GET["max"]:0); if($max==0) $max=30; // ограничение $pp=ms("SELECT * FROM `lleoold`.`accentus` WHERE `rifma`='".e($rifma)."' AND `slovo`!='".e($word)."'".($max==-1?'':" LIMIT ".intval($max)) ); print $GLOBALS['msqe']; foreach($pp as $p) $R[]=$p['slovo']; // JSON if(isset($_GET['json'])) { header("Content-type: application/json; charset=utf-8"); header("Access-Control-Allow-Origin: *"); // die("EE: СЛОВО ВИНДА ".$word." / ".wu($word)); // die(wu($word." ".print_r($R,1))); $ajax=1; if(sizeof($R)) { $R='["'.implode('","',$R).'"]'; } else $R='false'; die(wu('{"rifma":'.$R.'}')); } // AJAX $res=''; foreach($R as $l) { $res .= "".$l." "; } if($res=='') $res="ничего не найдено, извините"; $res="

".$res."

08 апреля 2007: Как-то сам того не желая, стихийно начал работу над проектом. Несколько месяцев назад я в ЖЖ поспрашивал у народа насчет словарей рифм, и мне прислыли аж три словарища. Сейчас вспомнил алгоритмы разбивки слова на слоги, выявления метрического рисунка, принципы рифмовки. Точнее, не вспомнил, а прочитал в своем дипломном проекте от 2006 года (лежит на сайте http://lleo.me/soft/text_dip.htm). Сам зачитался - как хорошо, что я все так толково и подробно описал в 1996! Теперь я планирую полностью восстановить свой прежний диплом в новых технологиях - сделать большую систему по поиску рифм, генерации связного текста и автоматизированному сочинению стихов из заданого материала.

© Леонид Каганов