#include <conio.h>
#include <stdio.h>
#include <locale.h>
#include <windows.h>

struct list
{
list(char _elem = 0, list *_next = NULL, list *_prev = NULL) : elem(_elem), next(_next), prev(_prev) { }

char elem;
list *next, *prev;
};

void print(list *l, ULONGLONG n);
char input(const char *path, list *l, ULONGLONG *n);
ULONGLONG delete_neighbourses(list **l, ULONGLONG n);

int main()
{
setlocale(0, "");

ULONGLONG n = 0;
list *L = new list();
char r = input("symbols.txt", L, &n);

if (r != -1)
print(L, n - delete_neighbourses(&L, n));

return r != -1 ? 0 * _getch() : -1;
}

char input(const char *path, list *l, ULONGLONG *n)
{
FILE *stream = NULL;
fopen_s(&stream, path, "r");

if (stream)
{
char elem = 0;
list *t = NULL;

bool read = true;
for (list *p = l; read; )
{
if (read = fscanf_s(stream, "%c", &elem, 1) != EOF)
{
p->next = t;
p = t ? p->next : p;

p->elem = elem;
t = new list(0, NULL, p);

(*n)++;
}
else
{
p->next = l;
l->prev = p;
}
}

return 0;
}
else
{
perror("Не удалось считать файл по причине");
return -1;
}
}

ULONGLONG delete_neighbourses(list **l, ULONGLONG n)
{
ULONGLONG d = 0, i = 0;
for (list **p = l; n - d > 2 && i != n; )
{
if ((*p)->prev->elem == (*p)->next->elem)
{
list *t = *p; // Элемент на удаление
*p = (*p)->next; // Текущий элемент - следующий

if (*l == t) *l = *p;

t->prev->next = (*p); // У предыдущего новая ссылка на следующий
(*p)->prev = t->prev; // У следующего ссылка на предыдущий - предыдущий удаленного

delete t;
d++;
}
else
{
p = &(*p)->next;
i++;
}
}

return d;
}

void print(list *l, ULONGLONG n)
{
printf_s("Результат программы: \n");
if (n)
for (list *p = l; n; p = p->next, n--)
printf_s("%c", p->elem);
else
printf_s("Пустой список");
}