B
Blah
I keep getting errors if I leave the elsif section in...is there a
better way of doing conditionals?
thanks...
sub victory
{
if ($board[0] eq 'O' && $board[2] eq 'O' && $board[4] eq 'O'
|| $board[5] eq 'O' && $board[7] eq 'O' && $board[9] eq 'O'
|| $board[10] eq 'O' && $board[12] eq 'O' && $board[14] eq 'O'
|| $board[0] eq 'O' && $board[7] eq 'O' && $board[14] eq 'O'
|| $board[4] eq 'O' && $board[7] eq 'O' && $board[10] eq 'O')
{
print "Player 1 Wins\n";
}
elsif ($board[0] eq 'X' && $board[2] eq 'X' && $board[4] eq
'X'
|| $board[5] eq 'X' && $board[7] eq 'X' && $board[9] eq 'X'
|| $board[10] eq 'X' && $board[12] eq 'X' && $board[14] eq
'X'
|| $board[0] eq 'X' && $board[7] eq 'X' && $board[14] eq
'X'
|| $board[4] eq 'X' && $board[7] eq 'X' && $board[10] eq
'X'
)
{
print "Player 2 Wins\n";
}
else
{
decider();
}
}
better way of doing conditionals?
thanks...
sub victory
{
if ($board[0] eq 'O' && $board[2] eq 'O' && $board[4] eq 'O'
|| $board[5] eq 'O' && $board[7] eq 'O' && $board[9] eq 'O'
|| $board[10] eq 'O' && $board[12] eq 'O' && $board[14] eq 'O'
|| $board[0] eq 'O' && $board[7] eq 'O' && $board[14] eq 'O'
|| $board[4] eq 'O' && $board[7] eq 'O' && $board[10] eq 'O')
{
print "Player 1 Wins\n";
}
elsif ($board[0] eq 'X' && $board[2] eq 'X' && $board[4] eq
'X'
|| $board[5] eq 'X' && $board[7] eq 'X' && $board[9] eq 'X'
|| $board[10] eq 'X' && $board[12] eq 'X' && $board[14] eq
'X'
|| $board[0] eq 'X' && $board[7] eq 'X' && $board[14] eq
'X'
|| $board[4] eq 'X' && $board[7] eq 'X' && $board[10] eq
'X'
)
{
print "Player 2 Wins\n";
}
else
{
decider();
}
}