Searching a 2-D Array for a Pattern

You are to complete a Turing program that inputs a 2-dimensional integer NxN array and searches it to find a pattern of consecutive integers anywhere in its rows and columns.

The 2-D integer array and the pattern to be searched are read from a file. The name of the file is given as input by the user. The code to do this is given below. The file has the following format:

N
A11 A21 A31 ..  AN1
A12 A22 A32 ..  AN2
.
.
A1N A2N A3N ..  ANN
M 
S1 S2 .. SM

That is, the first number of the file gives N, the size of the NxN array, and the subsequent elements give the contents of the array {} as above.

The final two lines of the file give the number and set of integers that your program will search for, as illustrated above. M is the number of integers and the .. are the integers themselves.

The program to read in this file can be found in /usr/copy/aps105/rfile.t and is listed below. You should copy the file /usr/copy/aps105/rfile.t into your file ``part3.t,'' and add your own code at the end of it.

You must write the remainder of the program, for which the task is to see if the pattern of integers (, .. ) can be found in forward sequence in one or more of the rows or columns of the NxN array. Your program's output is the row and column location(s) of the start of the matching sequence(s) in the array, and whether it is a row or a column that matched. Note that you need only find matches in the forward direction - e.g. matches , matches , matches and so on. The two files M1file and M2file which be found in the directory /usr/copy/aps105 can be used to test your program.

Below is an example input/output flow of the program, using as an example the input file /usr/copy/aps105/M1file:

Enter File Name: M1File

Here is the contents of M1File:  
6
22 76 94 33 44 82
34 44 88 15 88 29
17 33 42 22 15 89
22 76 94 33 44 82
34 44 88 15 88 96
17 33 42 22 15 89

3 
44 88 15

The program output from this file would be:

Match found on a row starting at row 2 column 2
Match found on a row starting at row 5 column 2
Match found on a column starting at row 1 column 5
Match found on a column starting at row 4 column 5

Notes

• Assume that the data that was input was correct - for example there are always the correct number of data items, and that M N and that the numbers are all integers.
• Note that the pattern can occur several times in the array.
• An sequence of numbers in the array may be part of more than one match. For example, if a row of the array contained 34 78 34 78 34 22 and the search pattern was 34 78 34 , then this row would contain two matches.
• Be sure to use the row and column numbering given above - i.e. that the first index of the array is the column number, and the second is the row.

Here is the code that reads in the file, found in /usr/copy/aps105/rfile.t:

var FileNo: int
var FileName : string
var N, M : int

loop
    put "Enter File Name: " ..
    get FileName
    open : FileNo, FileName, get

    exit when FileNo > 0
    put "Error: Cannot Open", FileName
end loop

% Read in Size of Array, echo, and declare array

get : FileNo, N
put "Array Size: ",N
var SearchArray : array 1 .. N, 1 .. N of int

% Read in the Array to be Searched  (echo it as well)
for i : 1 .. N
    for j : 1 .. N
        get : FileNo, SearchArray (i, j)
        put SearchArray (i, j), " " ..
    end for
    put ""
end for

% Read in Size of Pattern to be searched, and echo

get : FileNo, M
put "Pattern Size: ",M
var Pattern : array 1 .. M of int

% Read in Pattern, and echo

for i : 1 .. M
    get : FileNo, Pattern (i)
    put Pattern (i), " " ..
end for

A solution