Validacoes.hs

module Validacoes (validaEntradaLinhaColuna, validaEntradaDirecao, verificaLinha, verificaLinhas, haJogadaValida, validaEspacoInvalido, validaMovimentoDentroMatriz) where

import Data.Matrix
import Data.List hiding (transpose)

{--
    Função para validar o intervalo de entrada de linhas e colunas
--}
validaEntradaLinhaColuna :: Int -> Bool
validaEntradaLinhaColuna linhaColunaInput 
    | (linhaColunaInput > 0) && (linhaColunaInput < 8) = True
    | otherwise = False

{--
    Função para validar o intervalo de entrada da direcao
--}
validaEntradaDirecao :: Int -> Bool
validaEntradaDirecao direcaoInput 
    | (direcaoInput > 0) && (direcaoInput < 5) = True
    | otherwise = False

{--
    Funcao para verificar se ha jogada valida em uma linha
--}
verificaLinha :: [Char] -> Bool
verificaLinha linha = isInfixOf ['O','O','-'] linha || isInfixOf ['-','O','O'] linha

{--
    Funcao para verificar se ha jogada valida em varias linhas
--}
verificaLinhas :: [[Char]] -> Bool
verificaLinhas [] = False
verificaLinhas (xs:xss) = verificaLinha xs || verificaLinhas xss

{--
    Funcao para verificar se ha jogada valida na matriz
--}
haJogadaValida :: Matrix Char -> Bool
haJogadaValida tabuleiro = do
    verificaLinhas (toLists tabuleiro) || verificaLinhas (toLists (transpose tabuleiro))

{--
    Valida os espacos invalidos da matriz de tabuleiro
--}
validaEspacoInvalido :: Int -> Int -> Bool
validaEspacoInvalido linha col
    | linha == 1 && col == 1 || linha == 1 && col == 2 = False
    | linha == 2 && col == 1 || linha == 2 && col == 2 = False
    | linha == 1 && col == 6 ||  linha == 1 && col == 7 = False
    | linha == 2 && col == 6 ||  linha == 2 && col == 7 = False
    | linha == 6 && col == 1 || linha == 6 && col == 2 = False
    | linha == 7 && col == 1 || linha == 7 && col == 2 = False
    | linha == 6 && col == 6 ||  linha == 6 && col == 7 = False
    | linha == 7 && col == 6 ||  linha == 7 && col == 7 = False
    | otherwise = True

{--
    Valida se o movimento respeita os extremos da matriz
--}
validaMovimentoDentroMatriz :: Int -> Int -> Int -> Bool
validaMovimentoDentroMatriz linha coluna direcao 
    | coluna <= 2 && direcao == 3 = False
    | coluna >= 6 && direcao == 4 = False
    | linha >= 6 && direcao == 2 = False
    | linha <= 2 && direcao == 1 = False
    | linha <= 2 && coluna >= 3 && coluna <= 5 && direcao == 1 = False
    | linha == 3 && (coluna <= 2 || coluna >= 6) && direcao == 1 = False
    | linha == 5 && (coluna <= 2 || coluna >= 6) && direcao == 2 = False
    | linha >= 6 && coluna >= 3 && coluna <= 5 && direcao == 2 = False
    | coluna == 4 && (linha <= 2 || linha >= 6) && (direcao == 3 || direcao == 4) = False
    | coluna == 3 && (linha <= 2 || linha >= 6) && direcao == 3 = False
    | coluna == 5 && (linha <= 2 || linha >= 6) && direcao == 4 = False
    | otherwise = True