我们专注攀枝花网站设计 攀枝花网站制作 攀枝花网站建设
成都网站建设公司服务热线:400-028-6601

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

oraclekmp-创新互联

CREATE OR REPLACE PACKAGE KMP_ALGOR_PKG

博爱网站制作公司哪家好,找创新互联公司!从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设等网站项目制作,到程序开发,运营维护。创新互联公司自2013年起到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选创新互联公司

AS

 TYPE next_arr_tt IS TABLE OF INT INDEX BY PLS_INTEGER;

 PROCEDURE match_str(org_str VARCHAR2, pat_str VARCHAR2);

 FUNCTION  get_pre_arr(pat_st VARCHAR2) RETURN next_arr_tt;

END kmp_algor_pkg;

CREATE OR REPLACE PACKAGE BODY KMP_ALGOR_PKG

AS

 PROCEDURE match_str(org_str VARCHAR2, pat_str VARCHAR2)

 AS

   pat_next_arr next_arr_tt := get_pre_arr(pat_st => pat_str);

   k INT := 0;

   seq_cnt INT := 0;

 BEGIN

   FOR i IN 1..length(org_str) LOOP

     WHILE(k > 0 AND substr(org_str, i, 1) <> substr(pat_str, k + 1, 1)) LOOP

      k := pat_next_arr(k-1);

     END LOOP;

     IF(substr(pat_str, k + 1, 1) = substr(org_str, i, 1)) THEN

      k := k + 1;

     END IF;

     IF(k = length(pat_str)) THEN

      seq_cnt := seq_cnt + 1;

      dbms_output.put_line('the '||pat_str||'  '||seq_cnt||'th match found in '||org_str||' at index '||(i - k + 1));

      k := pat_next_arr(k - 1);

     END IF;

   END LOOP;

   IF(seq_cnt = 0) THEN

     dbms_output.put_line('no match found');

   END IF;

 END match_str;

 FUNCTION  get_pre_arr(pat_st VARCHAR2) RETURN next_arr_tt

 AS

   ret_next_arr next_arr_tt;

   k INT := 0;

 BEGIN

   ret_next_arr(0) := 0;

   FOR umark IN 1..length(pat_st) - 1 LOOP

    WHILE(k > 0 AND substr(pat_st, umark + 1 , 1) <> substr(pat_st, k + 1, 1)) LOOP

       k := ret_next_arr(k - 1);

    END LOOP;

    IF(substr(pat_st, k + 1, 1) = substr(pat_st, umark + 1, 1)) THEN

      k := k + 1;

    END IF;

    ret_next_arr(umark) := k;

   END LOOP;

   RETURN ret_next_arr;

 END get_pre_arr;

END kmp_algor_pkg;

另外有需要云服务器可以了解下创新互联cdcxhl.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。


分享名称:oraclekmp-创新互联
标题来源:http://shouzuofang.com/article/desdeh.html

其他资讯