HAM12 - VOI 2012 Khoảng cách Hamming

Tác giả: ladpro98

Ngôn ngữ: Pascal

program ham12;
uses    math;
const   fi='';
var     inp:text;
        s,c:ansistring;
        n,k,m,res,i:longint;

procedure play;
var     i,j,temp:longint;
begin
        for i:=1 to n do
        begin
                temp:=0;
                for j:=i to i+m-1 do
                if s[j]<>c[j-i+1] then
                begin
                        inc(temp);
                        if temp>=res then break;
                end;
                res:=min(res,temp);
        end;
end;

begin

        assign(inp,fi);
        reset(inp);
        readln(inp,n,m,k);
        readln(inp,s);
        s:=s+s;
        res:=123456789;
        for i:=1 to k do
        begin
                readln(inp,c);
                play;
        end;
        close(inp);
        write(res);
end.

Download