#include <iostream>
#include <string>
#include <fstream>
#include <iomanip>
using namespace std;

class List
{
public:
    List();
    ~List();
    //удаление первого элемента в списке
    void pop_front();
    //добавление элемента в конец списка
    void push_back(string part_number, string name, int price, int weight);
    // очистить список
    void clear();
    // получить количество элементов в списке
    int GetSize() { return Size; }
    // вывод детали
    int number(const int index, string str);
    //добавление элемента в начало списка
    void push_front(string part_number, string name, int price, int weight);
    //удаление элемента в списке по указанному индексу
    void removeAt(int index);
    //удаление последнего элемента в списке
    void pop_back();
    // Возвращение номера детали или наименования
    string str(const int index, string str);
private:
    class Node
    {
    public:
        Node* pNext;
        Node* pPrev;
        int price = 0, weight = 0;
        string part_number = "", name = "";
        Node(string part_number, string name, int price, int weight, Node* pNext = nullptr, Node* pPrev = nullptr)
        {
            this->part_number = part_number;
            this->name = name;
            this->price = price;
            this->weight = weight;
            this->pNext = pNext;
            this->pPrev = pPrev;
        }
    };
    int Size;
    Node* head;
    Node* tail;
};

List::List()
{
    Size = 0;
    head = nullptr;
    tail = nullptr;
}

List::~List()
{
    clear();
}


void List::pop_front()
{
    Node* temp = head;
    if (head->pNext == nullptr)
    {
        delete temp;
        Size--;
    }
    else
    {
        head = head->pNext;
        head->pPrev = temp->pPrev;
        delete temp;
        Size--;
    }
}

void List::push_back(string part_number, string name, int price, int weight)
{
    if (head == nullptr)
    {
        head = new Node(part_number, name, price, weight);
        tail = head;
    }
    else
    {
        Node* temp = tail;
        tail = new Node(part_number, name, price, weight, nullptr, temp);
        temp->pNext = tail;
    }
    Size++;
}

void List::clear()
{
    while (Size)
    {
        pop_back();
    }
}

int List::number(const int index, string str)
{
    int counter = 0;
    Node* current = this->head;
    while (current != nullptr)
    {
        if (counter == index)
        {
            if (str == "price") return current->price;
            if (str == "weight") return current->weight;
        }
        current = current->pNext;
        counter++;
    }
    return 0;
}

void List::push_front(string part_number, string name, int price, int weight)
{
    if (head == nullptr)
    {
        head = new Node(part_number, name, price, weight);
        tail = head;
    }
    else
    {
        Node* temp = head;
        head = new Node(part_number, name, price, weight);
        head->pNext = temp;
        temp->pPrev = head;
    }
    Size++;
}

void List::removeAt(int index)
{
    if (index == 0)
    {
        pop_front();
    }
    else
    {
        if (index == Size - 1)
        {
            pop_back();
        }
        else
        {
            if (index + 1 <= Size / 2)
            {
                Node* previous = this->head;
                for (int i = 0; i < index - 1; i++)
                {
                    previous = previous->pNext;
                }
                Node* toDelete = previous->pNext;
                previous->pNext = toDelete->pNext;
                previous = toDelete->pNext;
                previous->pPrev = toDelete->pPrev;
                delete toDelete;
            }
            else
            {
                Node* next = this->tail;
                for (int i = Size - 1; i > index - 1; i--)
                {
                    next = next->pPrev;
                }
                Node* toDelete = next->pNext;
                next->pNext = toDelete->pNext;
                next = toDelete->pNext;
                next->pPrev = toDelete->pPrev;
                delete toDelete;
            }
            Size--;
        }
    }
}

void List::pop_back()
{
    Node* temp = tail;
    if (tail->pPrev == nullptr)
    {
        delete temp;
        Size--;
    }
    else
    {
        tail = tail->pPrev;
        tail->pNext = temp->pNext;
        delete temp;
        Size--;
    }
}

string List::str(const int index, string str)
{
    int counter = 0;
    Node* current = this->head;
    while (current != nullptr)
    {
        if (counter == index)
        {
            if (str == "name") return current->name;
            if (str == "part_number") return current->part_number;
        }
        current = current->pNext;
        counter++;
    }
    return str;
}

int namesakes(List* lst, int size)
{
    int i = 0, j = i + 1;
    while (i < size - 1)
    {
        while (j < size)
        {
            if (lst->str(i, "part_number") == lst->str(j, "part_number"))
            {
                lst->removeAt(j);
                j--;
                size--;
            }
            j++;
        }
        i++;
        j = i + 1;
    }
    return size;
}

bool flag(List* lst, int size)
{
    string str1 = "", str2 = "";
    for (int i = 0; i < size - 1; i++)
    {
        str1 = lst->str(i, "part_number");
        str2 = lst->str(i + 1, "part_number");
        for (unsigned short int k = 0; k < str1.length(); k++)
            if (str1[k] > str2[k])
                return false;
            else
                break;
    }
    return true;
}

bool revers_flag(List* lst, int size)
{
    string str1 = "", str2 = "";
    for (int i = 0; i < size - 1; i++)
    {
        str1 = lst->str(i, "part_number");
        str2 = lst->str(i + 1, "part_number");
        for (unsigned short int k = 0; k < str1.length(); k++)
            if (str1[k] < str2[k])
                return false;
            else
                break;
    }
    return true;
}

int counter(List* lst, int size)
{
    int count = 0;
    cout << "Элементы списка, шифры деталей, в которых встречаются в списке только 1 раз:" << endl;
    size = lst->GetSize();
    for (int i = 0; i < size; i++)
    {
        bool flag = true;
        for (int j = 0; j < size; j++)
        {
            if (i == j)
                j++;
            else if (lst->str(i, "part_number") == lst->str(j, "part_number"))
            {
                flag = false;
                break;
            }
        }
        if (flag)
        {
            count++;
            cout << lst->str(i, "part_number") << endl;
        }
    }
    cout << "Кол-во элементов = ";
    return count;
}

int multi_sum(List* lst, int size)
{
    int sum = 0, max = lst->number(0, "price"), min = max;
    string name_max = lst->str(0, "name") + ' ', name_min = name_max;
    for (int i = 0; i < size; i++)
    {
        sum += lst->number(i, "price");
        if (max < lst->number(i, "price"))
        {
            max = lst->number(i, "price");
            name_max = lst->str(i, "name") + ' ';
        }
        if (min > lst->number(i, "price"))
        {
            min = lst->number(i, "price");
            name_min = lst->str(i, "name") + ' ';
        }
    }
    cout << "Максимальный элемент: " << name_max << max << endl;
    cout << "Минимальный элемент: " << name_min << min << endl;
    cout << "Сумма = ";
    return sum;
}

void start(List* lst)
{
    lst->push_front("2313", "gtu", 390, 101);
    lst->push_front("1231", "ghy", 912, 900);
    lst->push_front("8132", "hut", 832, 799);
}

void add(List* lst)
{
    string part_number = "", name = "", str = "";
    int price = 0, weight = 0;
    ifstream text;
    bool flag = true;
    while (flag)
    {
        cout << "Шифр детали: "; cin >> part_number;
        cout << "Название детали: "; cin >> name;
        cout << "Цена детали: "; cin >> price;
        cout << "Вес детали: "; cin >> weight;
        lst->push_front(part_number, name, price, weight);
        cout << "Желаете ещё добавить элементы? " << endl;
    tryAgain:
        cin >> str;
        if (str == "Да" or str == "да" or str == "ДА" or str == "lf" or str == "Lf" or str == "LF")
            flag = true;
        else if (str == "Нет" or str == "нет" or str == "НЕТ" or str == "Ytn" or str == "YTN" or str == "ytn")
            flag = false;
        else
        {
            cout << "Введите \"Да\" или \"Нет\" " << endl;
            goto tryAgain;
        }
    }
}

int remove(List* lst, int size)
{
    int i = 0;
    string str = "", name = "";
    bool flag = true;
    while (flag)
    {
        cout << "Введите наименование, по которому сделать удаление: "; cin >> name;
        i = 0;
        while (i < size)
        {
            if (name == lst->str(i, "name"))
            {
                lst->removeAt(i);
                size--;
                i--;
            }
            i++;
        }
        cout << "Желаете снова удалить по наименованию? " << endl;
    tryAgain:
        cin >> str;
        if (str == "Да" or str == "да" or str == "ДА" or str == "lf" or str == "Lf" or str == "LF")
            flag = true;
        else if (str == "Нет" or str == "нет" or str == "НЕТ" or str == "Ytn" or str == "YTN" or str == "ytn")
            flag = false;
        else
        {
            cout << "Введите \"Да\" или \"Нет\" " << endl;
            goto tryAgain;
        }
    }
    return size;
}

void print(List* lst, int size)
{
    for (int i = 0; i < size; i++)
    {
        cout << lst->str(i, "part_number") << setw(15) << right;
        cout << lst->str(i, "name") << setw(22) << right;
        cout << lst->number(i, "price") << setw(20) << right;
        cout << lst->number(i, "weight") << endl;
    }
}

int main()
{
    setlocale(LC_ALL, "Russian");
    system("chcp 1251 >> null");
    List lst;
    int N = 0;
    string command = "show";
    start(&lst);
    int size = lst.GetSize();

    do {
        if (command == "show")
        {
            cout << "Шифр" << setw(16) << right << "Название" << setw(23) << right << "Цена" << setw(20) << right << "Вес" << endl;
            print(&lst, size);
        }
        else if (command == "del1")
        {
            lst.removeAt(size - 3);
            size--;
        }
        else if (command == "del2")
        {
            cout << "Введите номер элемента, который хотите удалить(с начала)" << endl; cin >> N;
            lst.removeAt(N - 1);
            size--;
        }
        else if (command == "del3")
        {
            cout << "Введите номер элемента, который хотите удалить(с конца)" << endl; cin >> N;
            lst.removeAt(size - N);
            size--;
        }
        else if (command == "del4")
            size = namesakes(&lst, size);
        else if (command == "check1")
        {
            if (flag(&lst, size))
                cout << "Верно" << endl;
            else
                cout << "Ложно" << endl;
        }
        else if (command == "check2")
        {
            if (revers_flag(&lst, size))
                cout << "Верно" << endl;
            else
                cout << "Ложно" << endl;
        }
        else if (command == "count")
            cout << counter(&lst, size) << endl;
        else if (command == "sum")
            cout << multi_sum(&lst, size) << endl;
        else if (command == "del")
        {
            size = remove(&lst, size);
        }
        else if (command == "add")
        {
            add(&lst);
            size = lst.GetSize();
        }
        cout << "______________________________________________\n\nВведите команду.\nshow - Показать вывод эл-тов.\ndel1 - Удалить элемент, предшествующий 2-му с конца списка элементу.\ndel2 - Удалить элемент с заданным номером К от начала списка.\ndel3 - Удалить элемент с заданным номером от конца списка.\ndel4 - Удалить повторяющиеся элементы списка DSP, если в них совпадает шифр и наименование.\ncheck1 - Проверить упорядочены ли элементы списка по возрастанию шифра детали от начала к концу.\ncheck2 - Проверить упорядочены ли элементы списка DSP от конца к началу по возрастанию шифра детали.\ncount - Подсчитать количество элементов списка, шифры деталей, в которых встречаются в списке только 1 раз, и вывести их на печать.\nsum - Найти сумму расценок по всем деталям, наибольшую и наименьшую расценки и соответ-ствующие наименования деталей.\ndel - Удаление по наименованию\nadd - Добавление в начало\nexit - Выход.";
        cout << "\n______________________________________________\n" << endl;
        cin >> command;
    } while (command != "exit");
    return 0;
}