This site is temporarily down. Please come back. Karp-Rabin string searching
DelphiFAQ Home Search:

Karp-Rabin string searching

 

comments4 comments. Current rating: 4 stars (2 votes). Leave comments and/ or rate it.

Do you need a fast routine that searches a string within a string? Try the Karp-Rabin algorithm:

function search (pat: PATTERN; Text: Text) : integer;
const
  b = 131;
var
  hpat,
  htext,
  Bm,
  j,
  m,
  n     : integer;
  found : Boolean;
begin 
  found := False; 
  search := 0; 
  m := length (pat); 
  if m = 0 then 
  begin 
    search := 1; 
    found := true
  end; 
  
  Bm := 1; 
  hpat := 0; 
  htext := 0; 
  n := length (Text); 
  if n >= m then 
    {*** preprocessing ***} 
    for j := 1 to m do 
    begin 
      Bm := Bm * b; 
      hpat := hpat * b + ord (pat[j]); 
      htext := htext * b + ord (Text[j])
    end; 
  
  j := m; 
  {*** search ***} 
  while not found do 
  begin 
    if (hpat = htext) and (pat = substr (Text, j - m + 1, m)) then 
    begin 
      search := j - m + 1; 
      found := true
    end; 
    if j < n then 
    begin 
      j := j + 1; 
      htext := htext * b - ord (Text[j - m]) * Bm + ord (Text[j])
    end 
    else 
      found := true
  end
end;

Content-type: text/html

Comments:

2007-01-27, 03:32:13
from Sweden  
rating
<Text>
2007-08-15, 13:23:40
anonymous from Turkey  
serkan akbaba


Keywords:
2012-12-19, 09:45:58
[hidden] from Indonesia  
rating
please help me..
give me full source tihis source code for a rabin karp algorithm


Keywords:
2014-07-14, 18:14:36
anonymous from Indonesia  
kami sekeluarga tak lupa mengucapkan puji syukur kepada ALLAH S,W,T
dan terima kasih banyak kepada AKI atas nomor togel.nya yang AKI
berikan 4 angka 9259 alhamdulillah ternyata itu benar2 tembus AKI.
dan alhamdulillah sekarang saya bisa melunasi semua utan2 saya yang
ada sama tetangga.dan juga BANK BRI dan bukan hanya itu AKI. insya
allah saya akan coba untuk membuka usaha sendiri demi mencukupi
kebutuhan keluarga saya sehari-hari itu semua berkat bantuan AKI..
sekali lagi makasih banyak ya AKI… bagi saudara yang suka main togel
.
yang ingin merubah nasib seperti saya silahkan hubungi AKI SOLEH,,di
0823 1333 6747,, insya allah anda bisa seperti saya…menang togel 275
juta, wassalam.


dijamin 100% jebol saya sudah buktikan...sendiri....







Apakah anda termasuk dalam kategori di bawah ini !!!!


1'Dikejar-kejar hutang

2'Selaluh kalah dalam bermain togel

3'Barang berharga anda udah habis terjual Buat judi togel


4'Anda udah kemana-mana tapi tidak menghasilkan solusi yg tepat


5'Udah banyak Dukun togel yang kamu tempati minta angka jitunya
tapi tidak ada satupun yang berhasil..







Solusi yang tepat jangan anda putus aza....AKI SOLEH akan membantu
anda semua dengan Angka ritwal/GHOIB:
butuh angka togel 2D3D4D SGP / HKG / MALAYSIA / TOTO MAGNUM / dijamin
100% jebol
Apabila ada waktu
silahkan Hub: AKI SOLEH DI NO: (((082313336747))) ATAU <b><a href=' http://angkaramalan..gspot.com' rel='nofollow'>KLIK DISINI</a></b>



angka GHOIB: singapur 2D/3D/4D/



angka GHOIB: hongkong 2D/3D/4D/



angka GHOIB; malaysia



angka GHOIB; toto magnum 4D/5D/6D/



angka GHOIB; laos




 

 

NEW: Optional: Register   Login
Email address (not necessary):

Rate as
Hide my email when showing my comment.
Please notify me once a day about new comments on this topic.
Please provide a valid email address if you select this option, or post under a registered account.
 

Show city and country
Show country only
Hide my location
You can mark text as 'quoted' by putting [quote] .. [/quote] around it.
Please type in the code:

Please do not post inappropriate pictures. Inappropriate pictures include pictures of minors and nudity.
The owner of this web site reserves the right to delete such material.

photo Add a picture: