create a word search solver that can find words in all cardinal directions in matlab

main.m
function [row, col, dir] = wordSearchSolver(grid, word)
% WORDSEARCHSOLVER finds a word in a grid of letters
%   [ROW, COL, DIR] = WORDSEARCHSOLVER(GRID, WORD) returns the row, column,
%   and direction of the first letter of the word in the grid or empty
%   matrices if the word is not found. The directions are encoded as
%   follows: 1 = North, 2 = Northeast, 3 = East, 4 = Southeast, 5 = South,
%   6 = Southwest, 7 = West, and 8 = Northwest.
%
%   Example:
%   grid = ['M' 'A' 'T' 'L' 'A' 'B' 'R' 'O' 'D';
%           'Q' 'U' 'I' 'Z' 'A' 'S' 'A' 'E' 'L';
%           'A' 'V' 'R' 'D' 'P' 'I' 'I' 'H' 'N';
%           'T' 'I' 'W' 'E' 'K' 'E' 'D' 'C' 'M';
%           'L' 'A' 'B' 'Y' 'R' 'I' 'N' 'T' 'H';
%           'O' 'C' 'K' 'A' 'I' 'R' 'R' 'A' 'U';
%           'R' 'S' 'B' 'P' 'L' 'L' 'O' 'L' 'E';
%           'O' 'T' 'E' 'T' 'O' 'T' 'U' 'T' 'S';
%           'W' 'C' 'A' 'O' 'S' 'U' 'A' 'O' 'D'];
%   word = 'MATLAB';
%   [row, col, dir] = wordSearchSolver(grid, word); % [1, 1, 3]
%
%   See also: STRFIND, ROT90

% Set up the eight cardinal shift vectors
shifts = [0 -1; -1 -1; -1 0; -1 1; 0 1; 1 1; 1 0; 1 -1];

% Convert the word to a column vector of characters
word = reshape(word(:), [], 1);

% Look for the first letter of the word in the grid
[row, col] = find(grid == word(1), 1);
if isempty(row)
    dir = [];
    return
end

% Check all eight directions
for dir = 1:8
    % Find the indexes of the letters in the corresponding direction
    len = length(word);
    idx = [row, col];
    for i = 2:len
        idx = idx + shifts(dir,:);
        if any(idx < 1 | idx > size(grid))
            break
        end
        if grid(idx(1), idx(2)) ~= word(i)
            break
        end
    end
    
    % Check if the whole word was found in this direction
    if i == len
        return
    end
end

% No direction leads to the whole word
row = [];
col = [];
dir = [];
end
1889 chars
63 lines

main.m
grid = ['M' 'A' 'T' 'L' 'A' 'B' 'R' 'O' 'D';
        'Q' 'U' 'I' 'Z' 'A' 'S' 'A' 'E' 'L';
        'A' 'V' 'R' 'D' 'P' 'I' 'I' 'H' 'N';
        'T' 'I' 'W' 'E' 'K' 'E' 'D' 'C' 'M';
        'L' 'A' 'B' 'Y' 'R' 'I' 'N' 'T' 'H';
        'O' 'C' 'K' 'A' 'I' 'R' 'R' 'A' 'U';
        'R' 'S' 'B' 'P' 'L' 'L' 'O' 'L' 'E';
        'O' 'T' 'E' 'T' 'O' 'T' 'U' 'T' 'S';
        'W' 'C' 'A' 'O' 'S' 'U' 'A' 'O' 'D'];
word = 'MATLAB';
[row, col, dir] = wordSearchSolver(grid, word);
fprintf('The word "%s" starts at row %d, column %d, direction %d.\n', ...
        word, row, col, dir);
575 chars
14 lines

main.m
The word "MATLAB" starts at row 1, column 1, direction 3.
58 chars
2 lines