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.