#include<stdio.h>
#include<string.h>
#include<math.h>
#include<stdlib.h>


int count_paragraph(char text[])
{
	int paragraph_count=1;

	int text_len = strlen(text);

	int consecutive_nl_count = 0;

	for(int i=0; i<text_len; i++)
	{
		if(text[i] == '\n')
		{
			consecutive_nl_count++;
			if(consecutive_nl_count>=2)
			{
				paragraph_count++;
				consecutive_nl_count = 0;
			}
		}
		else
		{
			consecutive_nl_count = 0;
		}
	}
	return paragraph_count;
}

int count_line(char text[])
{
	int line_count=1;

	int text_len = strlen(text);

	for(int i=0; i<text_len; i++)
	{
		if(text[i] == '\n')
		{
			line_count++;
		}
	}
	return line_count;
}

int count_word(char text[])
{
	int word_count=0;

	int text_len = strlen(text);

	int white_flag = 1;

	for(int i=0; i<text_len+1; i++)
	{
		if(text[i] == '\n' || text[i] == ' ' || text[i] == '\0' || text[i] == ','|| text[i] == ';' || text[i] == ':' || text[i] == '?' || text[i] == '!' || text[i] == '.')
		{
			if(white_flag == 0)
			{
				word_count++;
			}
			white_flag = 1;
		}
		else
		{
			white_flag = 0;
		}
	}
	return word_count;
}

char word_list[10000][20];
int get_word_list(char text[])
{
	int word_count = 0;
	int text_len = strlen(text);

	int white_flag = 1;
	int word_start_index = 0;

	for(int i=0; i<text_len+1; i++)
	{
		if(text[i] == '\n' || text[i] == ' ' || text[i] == '\0' || text[i] == ','|| text[i] == ';' || text[i] == ':' || text[i] == '?' || text[i] == '!' || text[i] == '.')
		{
			if(white_flag == 0)
			{
				strncpy(word_list[word_count], text+word_start_index, (i-word_start_index));
				word_count++;
			}
			white_flag = 1;
		}
		else
		{
			if(white_flag == 1)
			{
				word_start_index = i;
			}
			white_flag = 0;
		}
	}
	return word_count;
}

char sorted_word_list[10000][20];
void sort_words(int word_count)
{
    char x[20];

    for (int i = 0; i<word_count; i++)
    {
       	strcpy(sorted_word_list[i], word_list[i]);
    }

    for (int i = 0; i<word_count; i++)
    {
        for (int j = i + 1; j<word_count; j++)
        {
            if (strcmp(sorted_word_list[i], sorted_word_list[j]) > 0) // Use stricmp() to sort without sensitivity to case
            {
                strcpy(x, sorted_word_list[j]);
                strcpy(sorted_word_list[j], sorted_word_list[i]);
                strcpy(sorted_word_list[i], x);
            }
        }
    }
}


void arrange_word(int word_count)
{
	char * arrange;

	char row[10][20];

	int row_count = ceil(word_count/10.0);

	arrange = (char*)malloc((row_count) * sizeof(row));

	memset(arrange, '\0', sizeof(arrange));

	int curr_row = 0, curr_col = 0;
	for(int i = 0; i< word_count; i++)
	{
		char * curr_pointer = arrange+(curr_row * sizeof(row))+(curr_col * sizeof(row[0]));

		strcpy(curr_pointer, word_list[i]);
		curr_col++;
		if (curr_col%10 == 0)
		{
			curr_col = 0;
			curr_row++;
		}
	}

	FILE * output_file;
	output_file = fopen("op.txt","w");

	for (int ii = 0; ii<10; ii++)
	{
		for (int jj=0; jj<row_count; jj++)
		{
			char * curr_word = arrange+(jj * sizeof(row))+(ii * sizeof(row[0]));
			if (strlen(curr_word) !=0)
			{
				fputs(curr_word, output_file);
				fputs(" ", output_file);
			}
		}
		fputs("\n", output_file);
	}
	fclose(output_file);
}


int main(int argc, char const *argv[])
{
	int buffer_size = 10000;
	FILE * input_file;
	char file_buff[buffer_size];
	memset(file_buff, '\0', sizeof(file_buff));

	input_file = fopen("inp.txt","r");

	if(input_file == NULL)
	{
		printf("Error!");   
		exit(1);             
	}
	int i = 0;
	char c;
	while ((c = getc(input_file)) != EOF)
	{
		file_buff[i++] = c;
	}

	int paragraph_count = count_paragraph(file_buff);
	printf("Paragraph Count = %d\n", paragraph_count);

	int word_count = count_word(file_buff);
	printf("Word Count = %d\n", word_count);

	int line_count = count_line(file_buff);
	printf("Line Count = %d\n", line_count);

	get_word_list(file_buff);
	sort_words(word_count);

	arrange_word(word_count);

	printf("**********START :: Sorted Words*************\n");
	for (int i = 0; i<word_count; i++)
    {
       	printf("%s\n", sorted_word_list[i]);
    }
    printf("**********END :: Sorted Words*************\n");

	fclose(input_file);

	return 0;
}