VPF::Елси в саовлх мнеять метсами бувкы ...

Elfet

Дата 2.2.2007, 17:24 (ссылка)

(нет голосов)

Загрузка ...

Белый и Пушистый

Профиль
Группа: Awaiting Authorisation
Сообщений: 3776
Регистрация: 2.4.2003

К эмтоу я сделал PHP класс))) Мижтое поромтсеть, пример:

Код


$inle = new inlewo;
$str = $inle->convert($str, 3);
// convert(строчка, количество перестановок в слове)

Потестировать можно тут: http://elf.h12.ru/index.php
Скачать: http://www.box.net/public/th5sdtnrnp

Добавлено @ 17:29

Код


<?
//---------------------------------------------//
//                                             //
//  InLeWo:  interchange of letters in a word  //
//  Created: Melethron                         //
//  Email:   [email protected]               //
//                                             //
//---------------------------------------------//

class inlewo 
{
    var $realAble = 1;
    var $hardAble = 2;
    var $dontAble = 3;
    
    function convert($str, $level=1)
    {
        $mass = array();
        $buff = "";
        for($i = 0; $i < strlen($str); $i++)
        {
            if( $this->found($str[$i], array(" ", ".", ",", "!", "?", "-", ":", "\"", "''", ")", "(", "=", "_", "%", "^", "+", "\\", "||", "/", "\n")) )
            {
                if($buff != "")
                {
                 $mass[] = $buff;
                    $buff = "";
                }
                $mass[] = $str[$i];                
            }                        
            else 
            {
                $buff .= $str[$i];
            }
        }
        if($buff != "")$mass[] = $buff;
        

        foreach ($mass as $k=>$word)
        {
            if(strlen($word) > 3)
            {
                 $abc = $this->StrToArray($word);
                 $abc = $this->mix($abc, $level);
                 $mass[$k] = $this->ArrayToStr($abc);
            }
        }
        
        return $this->ArrayToStr($mass);
    }
    
    function mix($arr, $level)
    {
        $len = count($arr);
        if($len-2 <= 2)
        {
            if($level > 1)$level = 1;
        }        
        else if($len-2 <= 4)
        {
            if($level > 2)$level = 2;
        }
        else if($len-2 <= 6)
        {
            if($level > 3)$level = 3;
        }
           
        mt_srand(time() + (double)microtime()*1000000);
        for($i = 0; $i < $level; $i++)
        {
            $t1 = mt_rand(1,$len-2);
            $n = 0;
            do {
            $t2 = mt_rand(1,$len-2);
            } while ( $t2 == $t1 || $n > round(($len-2)/2) );
            $buff = $arr[$t1];
            $arr[$t1] = $arr[$t2];
            $arr[$t2] = $buff;
        }
        
        return $arr;
    }
    
    function found($the, $in)
    {
        $f = false;
        foreach ($in as $v)
        {
            if($the == $v)$f = true;
        }
        return $f;
    }
    
    function StrToArray($str)
    {
        $r = array();
        for($i = 0; $i < strlen($str); $i++)
        {
            $r[] = $str[$i];
        }
        return $r;
    }
    
    function ArrayToStr($arr)
    {
        $r = "";
        foreach ($arr as $v)$r .= $v;
        return $r;
    }
}

?>

--------------------

PHP Чат Скрипт

esperant0

Дата 2.2.2007, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 714
Регистрация: 20.5.2005

ябанище

--------------------

Student->Teacher Assistant ->Research assistant->Microsoft Software Development Engineer

Пользователь получил наказание за то, что проигнорировал замечание которое было написано модератором а затем стерто и которое он - пользователь не мог видеть.

Сумасшедший

Дата 2.2.2007, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Чилавек-Каропка

Профиль
Группа: Завсегдатай
Сообщений: 1503
Регистрация: 15.8.2004
Где: Москва

Давайте создадим раздел "Бояны" и после некоторого нахождения темы в разделах Юмор, Флейм и т.п. будем перемещать в раздел "Бояны". Чтобы потом никто не говорил "Для тебя боян, а я не знал" smile

--------------------

Однажды ты спросишь, а я отвечу: "Время ожидания специалиста - 10 минут". Ты бросишь трубку, так и не узнав, что Ваш звонок очень важен для нас!

SelenIT

Дата 2.2.2007, 19:16 (ссылка)

(нет голосов)

Загрузка ...

баг форума

Профиль
Группа: Завсегдатай
Сообщений: 3996
Регистрация: 17.10.2006
Где: Pale Blue Dot

esperant0, Сумасшедший, я правильно понял - вы утверждаете, что код Elfetа, реализующий проверку баянного эффекта на произвольном тексте, является плагиатом?

--------------------

Осторожно! Данный юзер и его посты содержат ДГМО! Противопоказано лицам с предрасположенностью к зонеризму!

esperant0

Дата 2.2.2007, 19:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 714
Регистрация: 20.5.2005

Я ажервутдю не емсвос это.

--------------------

Сумасшедший

Дата 2.2.2007, 20:21 (ссылка)

(нет голосов)

Загрузка ...

Чилавек-Каропка

Профиль
Группа: Завсегдатай
Сообщений: 1503
Регистрация: 15.8.2004
Где: Москва

SelenIT, Код - ни в коем случае) - на него думаю, немного кто претендует.
Но идея такая была не у одного Elfetа, и, думаю что не только он и я реализовали её smile

Кстать, я свою прикрутил к нужному делу) Когда хоть какое-то подобие безопасности набросаю,- дам ссылку.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Песочница \| Следующая тема »