#include "pch.h"

#define _CRT_SECURE_NO_WARNINGS

#include <iostream>

using namespace std;

char** arrStr;    //массив строк текста
int countStr;    //кол-во строк

char* separators;   //массив разделителей
int countSep;    //кол-во разделителей

char** result;    //Результат работы
int countRes;    //Кол-во результирующих строк
int countWord;    //Кол-во слов в строке

void ReadAllStr();
void ReadAllSep();

void ReadStr(char* str);
void ReadSep(char sep);

bool CheckSep(char symbol);
bool CheckStop(char* str);
bool CheckSame(char sep);
bool GoodStr(char* str);

void PrintAllStr();
void PrintAllSep();
void PrintResult();

int GetCountWord(char* str);
char* ProcStr(char* str);
char** Split(char* str);
int FindMinSep(char** words);
int GetCountSep(char* words);


int main()
{
 setlocale(LC_CTYPE, "rus"); // вызов функции настройки локали

 countSep = 0;
 countStr = 0;

 printf("Ввод строк. Вводить на англ. Если строка будет повторяться, ввод строк прекратиться\n");
 printf("Внимательно следите за пробелами. Каждый пробел обозначает разделение слова.\n");
 printf("Не вводить несколько пробелов подрят и перед концом строки\n");
 ReadAllStr();
 PrintAllStr();

 printf("Ввод разделителей\n");
 //вводим разделители
 ReadAllSep();
 PrintAllSep();

 countRes = 0;

 for (int i = 0; i < countStr; i++)
 {
  //Если в строке нечетное кол-во слов, отправляем на обработку
  if (GoodStr(arrStr[i]))
  {
   char* newStr = ProcStr(arrStr[i]);

   countRes++;
   result = (char**)realloc(result, countRes * sizeof(char*));
   int k = strlen(newStr);
   result[countRes - 1] = (char*)malloc(k + 1);

   for (int j = 0; j < k; j++)
   {
    result[countRes - 1][j] = newStr[j];
   }
   result[countRes - 1][k] = '\0';
  }
 }

 PrintResult();

 for (int i = 0; i < countStr; i++)
 {
  free(arrStr[i]);
 }

 for (int i = 0; i < countRes; i++)
 {
  free(result[i]);
 }

 free(arrStr);
 free(separators);
 free(result);

 bool f;
}

void ReadAllStr()
{
 bool stop = false;

 do
 {
  char str[80];
  printf("Введите строку не превышающую 80 символов:\n");

  gets_s(str);

  if (CheckStop(str))
   stop = true;
  else
   ReadStr(str);

 } while (!stop);
}

void ReadStr(char* str)
{
 //найдем размер строки
 int k = 0;

 for (int i = 0; i < strlen(str) && str[i] != '\0'; i++)
 {
  k++;
 }

 //выделим память
 countStr++;
 arrStr = (char**)realloc(arrStr, countStr * sizeof(char*));

 arrStr[countStr - 1] = (char*)malloc(k + 1);

 //перезапишем в наш массив
 for (int i = 0; i < k; i++)
 {
  arrStr[countStr - 1][i] = str[i];
 }
 arrStr[countStr - 1][k] = '\0';
}

bool CheckStop(char* str)
{
 //проверка на существование похожей строки
 for (int i = 0; i < countStr; i++)
 {
  //если строки идентичны
  if (strcmp(arrStr[i], str) == 0) return true;
 }
 return false;
}

void ReadAllSep()
{
 bool stop = false;
 char sep;
 //scanf("%c", &sep);;

 do
 {
  printf("Введите разделитель (Считывает только 1 символ из введеной строки): \n");
  //чтение 1 символа
  scanf("%c", &sep);

  //Все остальное в этой строке выкидываем
  for (char c = getchar(); c != '\n' && c != EOF; c = getchar());

  //проверка разделителя

  if (CheckSame(sep)) printf("Такой разделитель уже существует: %c \n", sep);
  else
  {
   ReadSep(sep);

printf("Получен разделитель : %c \n", separators[countSep - 1]);
  }

  printf("Хотите ввести еще 1? (1 - да, 0 - нет) ");
  sep = getchar();

  if (sep != '1') stop = true;

  //Все остальное в этой строке выкидываем, если ввели больше 1 символа
  for (char c = getchar(); c != '\n' && c != EOF; c = getchar());
 } while (!stop);
}

bool CheckSame(char sep)
{
 //проверка на существование похожего разделителя
 for (int i = 0; i < countSep; i++)
 {
  //если строки идентичны
  if (separators[i] == sep) return true;
 }
 return false;
}

void ReadSep(char sep)
{
 //выделим еще память
 countSep++;
 separators = (char*)realloc(separators, countSep * sizeof(char));
 separators[countSep - 1] = sep;
}

void PrintAllStr()
{
 printf("Введенный текст:\n");
 for (int i = 0; i < countStr; i++)
 {
  printf("%s\n", arrStr[i]);
 }
 printf("\n");
}

void PrintAllSep()
{
 printf("Получены разделители:\n");
 for (int i = 0; i < countSep; i++)
 {
  printf("%c \n", separators[i]);
 }
 printf("\n");
}

bool GoodStr(char* str)
{
 if (GetCountWord(str) % 2 == 0) return false;
 return true;
}

int GetCountWord(char* str)
{
 countWord = 0;

 for (int i = 0; i < strlen(str) && str[i] != '\0'; i++)
 {
  if (str[i] == ' ') countWord++;
 }

 if (strlen(str) != 0) countWord++;

 return countWord;
}

char* ProcStr(char* str)
{
 char* newStr = NULL;
 int k = 0;

 char** words = Split(str);

 int min = FindMinSep(words);

 for (int i = 0; i < countWord; i++)
 {
  if (GetCountSep(words[i]) != min)
  {
   for (int j = 0; words[i][j] != '\0'; j++)
   {
    newStr = (char*)realloc(newStr, (k + 1) * sizeof(char));
    newStr[k] = words[i][j];
    k++;
   }
   newStr = (char*)realloc(newStr, (k + 1) * sizeof(char));
   newStr[k] = ' ';
   k++;
  }
 }

 newStr = (char*)realloc(newStr, (k + 1) * sizeof(char));
 newStr[k] = '\0';
 k++;

 //free(words);
 //words = NULL;
 for (int i = 0; i < countWord; i++)
 {
  free(words[i]);
 }
 countWord = 0;
 return newStr;
}

char** Split(char* str)
{
 char** arrWords = (char**)malloc(countWord * sizeof(char*));

 int cur = 0;
 char* buffer = NULL;
 int countBuff = 0;

 for (int i = 0; i < strlen(str) && str[i] != '\0'; i++)
 {
  if (str[i] != ' ')
  {
   countBuff++;
   buffer = (char*)realloc(buffer, countBuff * sizeof(char));
   buffer[countBuff - 1] = str[i];
  }
  else
  {
   countBuff++;
   buffer = (char*)realloc(buffer, countBuff * sizeof(char));
   buffer[countBuff - 1] = '\0';

   arrWords[cur] = (char*)malloc(countBuff);
   for (int j = 0; j < countBuff; j++)
   {
    arrWords[cur][j] = buffer[j];
   }
   cur++;
   free(buffer);
   buffer = NULL;
   countBuff = 0;
  }
 }

 if (buffer != NULL)
 {
  countBuff++;
  buffer = (char*)realloc(buffer, countBuff * sizeof(char));
  buffer[countBuff - 1] = '\0';
  arrWords[cur] = (char*)malloc(countBuff);

  for (int j = 0; j < countBuff; j++)
  {
   arrWords[cur][j] = buffer[j];
  }
  cur++;
 }

 free(buffer);
 return arrWords;
}

int FindMinSep(char** words)
{
 int min = 1000;
 for (int i = 0; i < countWord; i++)
 {
  int newMin = GetCountSep(words[i]);

  if (newMin < min && newMin != 0) min = newMin;
 }

 return min;
}

int GetCountSep(char* words)
{
 int k = 0;
 for (int i = 0; i < strlen(words); i++)
 {
  if (CheckSep(words[i])) k++;
 }
 return k;
}

bool CheckSep(char symbol)
{
 for (int i = 0; i < countSep; i++)
 {
  if (separators[i] == symbol) return true;
 }
 return false;
}

void PrintResult()
{
 printf("Результат:\n");
 printf("********\n");
 for (int i = 0; i < countRes; i++)
 {
  printf("%s\n", result[i]);
 }
 printf("********\n");
 printf("\n");
}