#include<stdio.h>
#include<stdlib.h>
#include<string.h>


#define MAX 100
int datalength = 0;
int intput_datalength = 0;
int ncount = 0;
int ocount = 0;
int scount = 0;
int i = 0;
int row =0;
int column = 0;
int temp = 0;
char token[MAX][MAX] = {NULL};
char numdata[MAX][MAX] = {};
double f_postfix[MAX];

void Tokenize(char input_infix[]){										//입력받은 값을 숫자와 연산자로 나누어 줌
	for(; i < intput_datalength; i++)
	{
		if(input_infix[i] == '+' || input_infix[i] == '-' || input_infix[i] == '*' || input_infix[i] == '/' || input_infix[i] == '(' || input_infix[i] == ')' )
		{
			temp = i;
			token[row][column] = NULL;
			++row;	
			column=0;
		}

		token[row][column] = input_infix[i];

		if(input_infix[i] == '+' || input_infix[i] == '-' || input_infix[i] == '*' || input_infix[i] == '/' || input_infix[i] == '(' || input_infix[i] == ')' )
		{
			token[row][column+1] = NULL;
			++row;
		}
		if((input_infix[i] >= '0' && input_infix[i] <= '9') || input_infix[i] == '.') column++;

		if(input_infix[i+1] == '=') ++row;
	}
	token[row][0] = '=';
	printf("\n");

}

void fuction(char operat[]){												// 중위계산식을 후위계산식으로 변경



	for(; i < row+1; i++)
	{

		if(token[i][0] == ')') {											//')'을 만나면 operat배열의 연산자를 모두 numdata배열로 옮겨서 리턴
			for(int j = ocount-1; j >= 0 ;j--)
			{
				numdata[ncount++][0] = operat[j];
			}
			ocount = 0;
			i++;
			return;
		}
		if(token[i][0] == '('){											//'('을 만나면 괄호가 끝날 때까지 operat배열에 연산자를 저장
			i++;
			fuction(operat);
		}
		if(token[i][0] == '=')												//마지막에 연산자배열에 있던 연산자를 numdata로 옮겨준다
		{          
			for(int k=ocount-1; k>=0; k--)
			{
				numdata[ncount][0] = operat[k];
				ncount++;
			}
			break;
		}

		if((token[i][0] >= '0' && token[i][0] <= '9') || token[i][0] == '.')		//숫자일 경우 numdata에 바로 저장
		{       
			strcpy(numdata[ncount++],token[i]);
		}

		else															//숫자가 아닐 경우
		{   

			++scount;
			if(token[i][0] == '+' || token[i][0] == '-')
			{
				if(operat[ocount-1] == '+' || operat[ocount-1] == '-' || operat[ocount-1] == '*' || operat[ocount-1] == '/')
				{
					for(int j=ocount-1; j>=0; j--)
					{
						numdata[ncount][0] = operat[j];
						ncount++;
					}
					ocount = 0;
				}

				operat[ocount] = token[i][0];
				ocount++;
			}else

				if(token[i][0] == '*' || token[i][0] == '/')
				{
					if(operat[ocount-1] == '*' || operat[ocount-1] == '/')	//연산자배열에 바로 전에 들어온 연산자가 *나 /일 경우
					{  

						numdata[ncount][0] = operat[ocount-1];
						ncount++;
						operat[ocount-1] = token[i][0];
					}else
					{
						operat[ocount] = token[i][0];
						ocount++;
					}
				}
		}
	}

	printf("토큰 분리\n");
	for(int k = 0; k < row; k++){
		printf("%s\n",token[k]);
	}
	printf("\n");
}

void calculate()									// 후위계산식으로 바꾼 배열을 계산
{
	int fcount = 0;

	for(int j=0; j<row; j++)
	{
		if(numdata[j][0] >= '0' && numdata[j][0] <= '9')
		{
			f_postfix[fcount++] = atof(numdata[j]);
		}
		else
		{
			if(numdata[j][0]=='*')
			{
				f_postfix[fcount-2] = f_postfix[fcount-2] * f_postfix[fcount-1];
			}
			else if(numdata[j][0]=='/')
			{
				f_postfix[fcount-2] = f_postfix[fcount-2] / f_postfix[fcount-1];
			}
			else if(numdata[j][0]=='-')
			{
				f_postfix[fcount-2] = f_postfix[fcount-2] - f_postfix[fcount-1];
			}
			else if(numdata[j][0]=='+')
			{
				f_postfix[fcount-2] = f_postfix[fcount-2] + f_postfix[fcount-1];
			}
		}
	}
}

int main()
{
	char input_infix[MAX] = {};
	char infix[MAX] = {};
	char operat[MAX] = {};
	int ccount = 0;


	printf("식 입력 :");
	//scanf("%s",&input_infix);

	char input;
	
	while((input = getchar()) !='=')
	{
	input_infix[ccount++] = input;
	}
	input_infix[ccount] = '=';

	intput_datalength = strlen(input_infix);


	Tokenize(input_infix);

	i = 0;
	datalength = strlen(infix);

	fuction(operat);

	calculate();
	
	printf("후위표기식 :");
	for(int j=0; j<row; j++)
	{
	printf(" %s",numdata[j]);
	}
	printf("\n\n");

	printf("계산값은 %.2f입니다\n\n",f_postfix[0]);

	return 0;
}