% tic-tac-toe PFS March 2007

% initialization
clear
clc
close all
board = zeros(3,3);
% draw a board
figure
plot([.5 3.5],[-1.5 -1.5 ],'k','linewidth',2);
hold on
plot([.5 3.5],[-2.5 -2.5 ],'k','linewidth',2)
plot([1.5 1.5 ],[-.5 -3.5],'k','linewidth',2)
plot([2.5 2.5 ],[-.5 -3.5],'k','linewidth',2)
hold off
axis off

% get first move
player = 1;
board = getmove(board,player);
% game loop 
for turn = 1:8
    player = - player;
    board = getmove(board,player);
    result = checkwin(board,player);
    if result == 1
        break
    end
end
% check for draw 
if result == 0 & (sum(sum(abs(board))) == 9)
    disp('Nobody wins')
end