use core::panic;
use fractions::Fraction;
use std::fmt::{Debug, Display};
use std::ops::Add;
use std::ops::Mul;
use std::ops::Sub;

#[derive(Debug, Eq, PartialEq)]
pub enum MatrixError {
    IndexOutOfRange,
    RowOutOfRange,
    ColumnOutOfRange,
    NotSquared,
    InvalidDataSize,
    InvalidSizeForAdd,
    InvalidSizeForSub,
    InvalidSizeForMul,
    ZeroSize,
}

#[derive(PartialEq, Eq, Debug)]
pub struct Matrix {
    rows: usize,
    columns: usize,
    data: Vec<Fraction>,
}

impl Matrix {
    pub fn new(rows: usize, columns: usize, default: Fraction) -> Result<Self, MatrixError> {
        if columns < 1 || rows < 1 {
            return Err(MatrixError::ZeroSize);
        }

        Ok(Self {
            rows,
            columns,
            data: vec![default; rows * columns],
        })
    }

    pub fn get(&self, row: usize, column: usize) -> Result<&Fraction, MatrixError> {
        if row >= self.rows || column >= self.columns {
            return Err(MatrixError::IndexOutOfRange);
        }
        let mut index = 0;
        index += row * self.columns;
        index += column;
        return Ok(&self.data[index]);
    }

    pub fn get_row(&self, row: usize) -> Result<Vec<Fraction>, MatrixError> {
        if row >= self.rows {
            return Err(MatrixError::RowOutOfRange);
        }

        let mut index = 0;
        let mut data = Vec::new();

        index += self.columns * row;
        for i in 0..self.columns {
            data.push(self.data[index + i]);
        }

        return Ok(data);
    }

    pub fn get_column(&self, column: usize) -> Result<Vec<Fraction>, MatrixError> {
        if column >= self.columns {
            return Err(MatrixError::ColumnOutOfRange);
        }

        let index = column;
        let mut data = Vec::new();

        for i in 0..self.rows {
            data.push(self.data[(i * self.columns) + index])
        }

        return Ok(data);
    }

    pub fn get_diagonal(&self) -> Result<Vec<Fraction>, MatrixError> {
        if self.columns != self.rows {
            return Err(MatrixError::NotSquared);
        }

        let mut data = Vec::new();

        let mut index;
        for i in 0..self.columns {
            index = i + (i * self.columns);
            data.push(self.data[index]);
        }
        return Ok(data);
    }

    pub fn set(&mut self, row: usize, column: usize, data: Fraction) -> Option<MatrixError> {
        if row >= self.rows || column >= self.columns {
            return Some(MatrixError::IndexOutOfRange);
        }
        let mut index = 0;
        index += row * self.columns;
        index += column;
        self.data[index] = data;
        return None;
    }

    pub fn set_row(&mut self, row: usize, data: Vec<Fraction>) -> Option<MatrixError> {
        if row >= self.rows {
            return Some(MatrixError::IndexOutOfRange);
        }
        if data.len() != self.columns {
            return Some(MatrixError::InvalidDataSize);
        }

        for i in 0..data.len() {
            self.set(row, i, data[i]);
        }

        None
    }

    pub fn set_column(&mut self, column: usize, data: Vec<Fraction>) -> Option<MatrixError> {
        if column >= self.columns {
            return Some(MatrixError::ColumnOutOfRange);
        }
        if data.len() != self.rows {
            return Some(MatrixError::InvalidDataSize);
        }

        for i in 0..data.len() {
            self.set(i, column, data[i]);
        }

        None
    }

    pub fn exchange_rows(&mut self, row1: usize, row2: usize) -> Option<MatrixError> {
        if row1 >= self.rows || row2 >= self.rows {
            return Some(MatrixError::RowOutOfRange);
        }

        //Get copy of row2
        let temp = self.get_row(row2).unwrap();
        let mut index1 = 0;
        let mut index2 = 0;
        //Move from row1 to row2
        index1 += self.columns * row1;
        index2 += self.columns * row2;
        for i in 0..self.columns {
            self.data[index2 + i] = self.data[index1 + i];
            self.data[index1 + i] = temp[i];
        }

        None
    }

    pub fn exchange_columns(&mut self, column1: usize, column2: usize) -> Option<MatrixError> {
        if column1 >= self.columns || column2 >= self.columns {
            return Some(MatrixError::ColumnOutOfRange);
        }

        //Get copy of column2
        let temp = self.get_column(column2).unwrap();
        for i in 0..self.rows {
            self.data[column2 + (i * self.columns)] = self.data[column1 + (i * self.columns)];
            self.data[column1 + (i * self.columns)] = temp[i];
        }

        None
    }

    pub fn get_determinant(&self) -> Result<Fraction, MatrixError> {
        if self.rows != self.columns {
            return Err(MatrixError::NotSquared);
        }

        let mut trig_matrix = Matrix {
            columns: self.columns,
            rows: self.rows,
            data: self.data.clone(),
        };
        let mut sign = Fraction::new(1, 1).unwrap();

        for i in 0..self.columns {
            let mut max_row = i;
            let mut max_value = trig_matrix.get(i, i).unwrap().abs();

            // We do parcial pivoting to avoid getting insane
            // numbers that may result in overflow with fractions
            for r in (i + 1)..self.rows {
                let val = trig_matrix.get(r, i).unwrap().abs();
                if val > max_value {
                    max_value = val;
                    max_row = r;
                }
            }

            // If there ain't no other thing but 0 then we're
            // fucked, determinant is zero
            if max_value.is_zero() {
                return Ok(Fraction::new(0, 1).unwrap());
            }

            if max_row != i {
                trig_matrix.exchange_rows(i, max_row);
                sign = -sign;
            }

            let pivot = *trig_matrix.get(i, i).unwrap();

            // The main gaussian elimination, not even I remember how
            // i did it in such a asimple way
            for x in (i + 1)..trig_matrix.rows {
                let m = (*trig_matrix.get(x, i).unwrap() / pivot).unwrap();

                let row_x = trig_matrix.get_row(x)?;
                let row_i = trig_matrix.get_row(i)?;

                let new_row = row_x
                    .iter()
                    .zip(row_i.iter())
                    .map(|(a, b)| *a - m * *b)
                    .collect::<Vec<Fraction>>();

                trig_matrix.set_row(x, new_row);
            }
        }

        // YES, now we got ourselves a triangular matrix, now we just
        // take the product of the diagonal and multiply by sign, that's
        // the determinant :)
        let determinant = sign
            * trig_matrix
                .get_diagonal()?
                .iter()
                .copied()
                .fold(Fraction::from(1i64), |acc, x| acc * x);

        return Ok(determinant);
    }
}

impl Add for Matrix {
    type Output = Result<Self, MatrixError>;

    fn add(self, other: Self) -> Self::Output {
        if self.data.len() != other.data.len() {
            return Err(MatrixError::InvalidSizeForAdd);
        }

        let mut new_data = Vec::new();
        for i in 0..self.data.len() {
            new_data.push(self.data[i] + other.data[i]);
        }

        Ok(Matrix {
            columns: self.columns,
            rows: self.rows,
            data: new_data,
        })
    }
}

impl Sub for Matrix {
    type Output = Result<Self, MatrixError>;

    fn sub(self, other: Self) -> Self::Output {
        if self.data.len() != other.data.len() {
            return Err(MatrixError::InvalidSizeForSub);
        }

        let mut new_data = Vec::new();
        for i in 0..self.data.len() {
            new_data.push(self.data[i] - other.data[i]);
        }

        Ok(Matrix {
            columns: self.columns,
            rows: self.rows,
            data: new_data,
        })
    }
}

impl Mul for Matrix {
    type Output = Result<Self, MatrixError>;

    fn mul(self, other: Self) -> Self::Output {
        if self.columns != other.rows {
            panic!("Matrix dimentions are inadecuate.");
        }

        let mut new_data: Vec<Fraction> = Vec::new();
        for i in 0..self.rows {
            let current_row = self.get_row(i)?;

            for k in 0..other.columns {
                let current_column = other.get_column(k)?;
                let mut new_value = Fraction::new(0, 1).unwrap();
                for (a, b) in current_row.iter().zip(current_column.iter()) {
                    new_value = new_value + (*a * *b);
                }
                new_data.push(new_value);
            }
        }

        Ok(Matrix {
            rows: self.rows,
            columns: other.columns,
            data: new_data,
        })
    }
}

impl Display for Matrix {
    fn fmt(&self, f: &mut std::fmt::Formatter<'_>) -> std::fmt::Result {
        let mut display = String::new();
        let mut index = 0;
        for _i in 0..self.columns {
            display += "{";
            for _k in 0..self.rows {
                display += &format!(" {},", self.data[index]);
                index += 1;
            }
            display += " }\n";
        }
        write!(f, "{}", display)
    }
}

#[cfg(test)]
mod tests {
    use super::*;
}