Sugestie przy wyszukiwarce..

[tkosau]

W moich obliczeniach sprawdzane są wszystkie n-gramy od 1 do x, gdzie x to niższa liczba znaków w obu porównywanych słowach. Należy też pamiętać że operacja nie jest symetryczna, dlatego przeważnie robi się tak, że sprawdza się wartość dla a,b i dla b,a i wybiera tę niższą.

PS: w poście wyżej Maximus Marius ostatnie elementy "ie" i "e" nie są 3-gramami, ostatnim 3 gramem będzie "nie"

[sniver]

Uwaga, panie i panowie. Po teorii której sie oczytałem znalazłem wreszcie coś co mi to przelało "na kod"

Działa!

Oto kod (może sie komuś przyda):

CREATE DEFINER=`root`@`%` FUNCTION `LEVENSHTEIN`( s1 VARCHAR(255), s2 VARCHAR(255) ) RETURNS int(11)

DETERMINISTIC

BEGIN

DECLARE s1_len, s2_len, i, j, c, c_temp, cost INT;

DECLARE s1_char CHAR;

-- max strlen=255

DECLARE cv0, cv1 VARBINARY(256);

SET s1_len = CHAR_LENGTH(s1), s2_len = CHAR_LENGTH(s2), cv1 = 0x00, j = 1, i = 1, c = 0;

IF s1 = s2 THEN

RETURN 0;

ELSEIF s1_len = 0 THEN

RETURN s2_len;

ELSEIF s2_len = 0 THEN

RETURN s1_len;

ELSE

WHILE j <= s2_len DO

SET cv1 = CONCAT(cv1, UNHEX(HEX(j))), j = j + 1;

END WHILE;

WHILE i <= s1_len DO

SET s1_char = SUBSTRING(s1, i, 1), c = i, cv0 = UNHEX(HEX(i)), j = 1;

WHILE j <= s2_len DO

SET c = c + 1;

IF s1_char = SUBSTRING(s2, j, 1) THEN

SET cost = 0; ELSE SET cost = 1;

END IF;

SET c_temp = CONV(HEX(SUBSTRING(cv1, j, 1)), 16, 10) + cost;

IF c > c_temp THEN SET c = c_temp; END IF;

SET c_temp = CONV(HEX(SUBSTRING(cv1, j+1, 1)), 16, 10) + 1;

IF c > c_temp THEN

SET c = c_temp;

END IF;

SET cv0 = CONCAT(cv0, UNHEX(HEX©)), j = j + 1;

END WHILE;

SET cv1 = cv0, i = i + 1;

END WHILE;

END IF;

RETURN c;

END

[papieros]

No rzeczywiście, rzeczywiście. Mógłbyś podać jakiegoś dobrego linka do poczytania o DEFINER'ach?

[sniver]

nie znam. Ale to proste zaganienie,

DEFINER=`user_ktowy_bedzie_miec_dostep_do_funkcji`@`host_do_ktorego_ten_user_jest_przyczepiony`