fork download
  1. program antivirus;
  2.  
  3. var
  4. M, N1, N2, N3, N4, T, p1, p2, p3, p4, test, i : LongInt;
  5. F1, F2, F3, F4 : AnsiString;
  6. corrispondenza : boolean;
  7.  
  8. begin
  9. {
  10.   decommenta le due righe seguenti se vuoi leggere/scrivere da file
  11.   assign(input, 'input.txt'); reset(input);
  12.   assign(output, 'output.txt'); rewrite(output);
  13. }
  14.  
  15. ReadLn(T);
  16. for test:=1 to T do begin
  17. ReadLn();
  18. ReadLn(N1, N2, N3, N4);
  19.  
  20. ReadLn(M);
  21.  
  22. ReadLn(F1);
  23.  
  24. ReadLn(F2);
  25.  
  26. ReadLn(F3);
  27.  
  28. ReadLn(F4);
  29. ;
  30. for p1:=1 to N1-M*1 do
  31.  
  32. begin
  33.  
  34. for p2:= 1 to N2-M +1 do
  35. begin
  36.  
  37. for p3:=1 to N3-M +1 do
  38. begin
  39.  
  40. for p4:= 1 to N4-M+1 do
  41. begin
  42. corrispondenza:=true;
  43. for i:= 0 to M -1 do
  44. if (F1[p1 + i] <> F2[p2 + i]) or ( F2[p2 + i] <> F3[p3 + i]) or (F3[p3 + i] <> F4[p4 + i]) then corrispondenza:= false;
  45. if corrispondenza=true then
  46. begin
  47. Write('Case #', test, ': ');
  48. WriteLn(p1-1, ' ', p2-1, ' ', p3-1, ' ', p4-1);
  49. exit
  50. end;
  51.  
  52. end;
  53.  
  54. end;
  55.  
  56.  
  57. end;
  58.  
  59.  
  60. end;
  61.  
  62.  
  63. end;
  64. end.
  65.  
Success #stdin #stdout 0s 5324KB
stdin
12

6 8 7 10
2
bpbqbq
pbpbpbpd
pbdppqd
qpbqdbpbbb

10 15 10 10
6
gqtfsnyejh
ivcfedvqsnyejhy
lhssnyejhm
snyejhzozm

88 83 71 67
5
dbybbdbdqbydddydbybddbbddydbdbqbddbdbbddbdkdqbbdbbddbdbbvbbddbddbddbbdhbbbdbyddkdvdbdbbd
bbbddbbdybdqdbbbydyydbdbbkddbbddbydbddbbkbybbbdqdrdbdbddbbbdddbqbbyddbbddbbdbdbbbdd
bbdydddbdbbyddbdydbbdybbdbbrdddbqdbdbbcqdbdbdddddbbbbbdbbbdbbbdbkdbdbbb
dbbddbbybbdbdddbdhbbbbbbdbdddbbqddbdbbddddddbqbdbdbdddddbbdbddbdbbb

95 93 60 57
15
qdmbyinogragenlmizkydwgbgjjtogplmccebasmqnnhdtqhuztvilpomrpeflapptuatxfdijqzcrcohnldvbapoqbxkww
yazmfewhazbsthwegkghcbwdinspqqljfxriwapvzsxnhfvuaqqjaeqyntdjmkbasmqnnhdtqhuztbfynospdpltsvlib
whrcpvzajvobasmqnnhdtqhuztdxmptihzqanixnlszoquuhosjpkeprnauy
kwmnnsvjqhsldzsdwallermvalbvxafbasmqnnhdtqhuztvqfqjrdcjks

68 91 79 51
6
qppppqppppqqpqqppppqpqppqpqpqqppqqqxqpcpqpppqpqqcqqqpqqqpppppqqqqcpp
qqpppqqpqpqpppppqppppppqqpqpppqqpqpppqpqpppppqqqpqqqpqpqqqqcpqqqpqpqqqqqqqqppppppqpppqppppp
ppqppqpcqqqqpppqqcpqqpqpqqppqqqqpqqxppqpqqpqpqppppqppqppqppqpqqpxqqqqqpqqpqqppp
pppqpcpqpqqqqqppqqqqqpcppqqppqqqppqqqpcqpqpqqqppqqp

85 74 85 61
11
bbbddbbbbdbdbddbbbdddddddbdbddbdbdbbbbbbbbbdddbbbddbbddbdbdbdddbbbbddbddbdbddbddbddbd
dbdbbbdbdbbbddbbdbbddbdbbbbdbbdbddbdbbdbbddbdbbddbbdbbdbdddbddbdbddbdddbbb
bdbddddbbdddbdbbbdbddbbbddddbbbddbbdddbddbdbddbdbbbbdbbbbdbdbbdbddbdddbbddbddbbdbdbdd
bbbddbdbbdbdddbdddddbbdddbbdbdbddbdbddbdddbdbdbddbbbbdddddbdd

81 88 54 79
14
ppqpqpqpppqpppppqqqpppqppppppqpqqqqqppppqqppqqpqppqqppqpqqqqppqqqqppqpqqpqpnqqpqq
pqppqpqppppqqqqppqpqqpqpppqqpppqpqqpqqqpqppqqqpqppppppqpqppppqqqpqqqqpqpqqqqqpqqpqqppppq
qqqqqpppqqpqqqqppqpqqpqppppqppppqpppqpppqpqqpqqppqpppq
ppppqppqqqqppqpqqpqppqqqqppqqqqqpppqpqpqpppqpqpqqqpqpqqqppqppqqpqqpqpqqqqpqpqpq

94 88 98 52
5
pqhqpqhqpqpqhqpphppqppqqqqppqppphpqqqppqqqppppqppqqpqpqpqppppppqqqpppqqpqpppqqpppppqqqqppqqqqq
pppppppphqppqqpqpppqqqqpqpqhqqpqpqqqqppqqqpqpqqpmcqpqpqqqppqqpqqpqppqqqpphpqpppqqpqqpppp
qqqpqqppqqpqpqqppqpoqqppqqqpqpqpopppqqpppqqpqqpqphppqqpqqpppqpqqpqpqhqqpqqpppqppppppqpqqpqqhpqpppp
qqqpqqphppqpqqqhqpqpqopqpqpqpqqqqqhppqpqpqqqqphqqpqq

80 63 88 93
12
ptihbtpgoddugiepzhnfhomdtkucxilrsdydfapxnzyomrjdqinspnnwmdpsifivtzhxgzimfwpehuez
rxhkeebeiwlskgclydrylvxowoczozadilrsdydfapxnxnvvcjzrqfrwshyhzfu
gpqrywutukqqutbzuqnutdudkdcxonyfigtoahxtpgnzxxilrsdydfapxnqfluxvcknbkijsehzcogeljpssigiq
eizdamdiqetnmilbdaiygqnqzvrvovtizezfaifqmewnkhfilrsdydfapxnszpnhlxkatnyjirsumolryyljdpjjeoons

86 66 90 51
15
bdbdbbbdbdbbddbdbbbbbdbbbdddbdbbbddbddbdbbddddbdbdddbbdbddddbbdbdbbdbbbdbbdbddbdbdbbdd
dbbdbddddbdddbbddbdbbdbddbdbbdbbbdbbdbddbbbdbbbddddbbbbdddbdbbbdbb
dbbbbbdbbddbbbdddddbdddbbdbbddddbbdddbbbbdddbdbddddddbdddbbdbbbdbbdbddbddbbbbddbbbdbdbdddb
dbbbddbbbdbbdbbbdbbdbddbbdbbdbddddbbbddddddbdddbddb

72 51 54 78
5
qpqpdqdddqpqdpbqdqppbppqbpdbdpdbddbbddqddqqpqpqdbpddqbdddddqpbddbbpqbqdd
dddbddpdbqdbppqbpdqpdpppbqdpqbdbbdpdppqqbpppqbqdddp
pbqpbddppdqpdqbbdbbpddqdddqqqbddqqppqbqdqddqpqpqbddddb
pbdpqddbqppdddqbbpbpqdqdqdqdqqpddbdbbpdpdbpqpppdpqbqdqbbdpbdqqqqpdbqddpbdppppq

68 96 82 86
7
bbababbaabbbbabbbbbbbabaaaabbabaabbabbobababaaaabbbaabbbaababbaaabbb
bbabbbabbababbbaaaabbbbbabababbaabbaababaaabbbbaaababaaabbbbaabbaabbababbaabbbbaaaaabbbbbbabbaba
babaaabbbbaaabbbaaobbbbabababbbbaabbbbbaababaaabababbbbabbbbbaabbbaaaabababbabaabb
abbabbaaaaaabaaaaabbaabaabaaababbabbabbboaabbbbaaabbaaabbaaabbabababwbaabbababbbabaaba
stdout
Case #1: 1 0 0 1