create a word search solver in matlab

main.m
% Load the word search grid
grid = textread('wordsearch.csv', '%s', 'delimiter', ',');
gridSize = sqrt(length(grid));

% Load the list of words to search for
words = textread('words.txt', '%s');

% Loop over each word and search for it in the grid
for i = 1:length(words)
    word = char(words(i));
    wordSize = length(word);
    found = false;
    
    % Loop over each cell in the grid
    for j = 1:length(grid)
        % Check if the first character of the word matches the current cell
        if strcmp(word(1), grid{j})
            % Search in all directions for the rest of the word
            for dx = -1:1
                for dy = -1:1
                    % Skip the current cell
                    if dx == 0 && dy == 0
                        continue;
                    end
                    
                    % Initialize the search from the current cell
                    x = mod(j - 1, gridSize) + 1;
                    y = floor((j - 1) / gridSize) + 1;
                    found = true;
                    
                    % Search in the current direction
                    for k = 2:wordSize
                        x = x + dx;
                        y = y + dy;
                        
                        % Check if the current cell is out of bounds
                        if x < 1 || x > gridSize || y < 1 || y > gridSize
                            found = false;
                            break;
                        end
                        
                        % Check if the current cell matches the current character of the word
                        if ~strcmp(word(k), grid{(y - 1) * gridSize + x})
                            found = false;
                            break;
                        end
                    end
                    
                    % Record the location of the word if it was found
                    if found
                        startX = mod(j - 1, gridSize) + 1;
                        startY = floor((j - 1) / gridSize) + 1;
                        endX = x;
                        endY = y;
                        fprintf('Found "%s" at (%d,%d) to (%d,%d)\n', word, startX, startY, endX, endY);
                        break;
                    end
                end
                
                if found
                    break;
                end
            end
            
            if found
                break;
            end
        end
    end
    
    if ~found
        fprintf('Did not find "%s"\n', word);
    end
end
2568 chars
75 lines