#include <stdio.h>
#include <stdlib.h>
#define MaxRow 10
#define MaxCol 10
#define MAXSTACKSIZE 100
#define STACKINCREMENT 10
#define NOENOUGHROOM 10
#define STACKOVERFLOW 11
#define up 1
#define down 2
#define left 3
#define right 4

typedef struct  {
    int *abscissa;
    int *ordinate;
    int *direction;
    int maxstacksize;
}SqStack;

SqStack Stack;
int top = -1; //初始化棧頂

//依次上下左右行走
int arrowx[4] = {0, 0, -1, 1};
int arrowy[4] = {-1, 1, 0, 0};

int Maze[MaxRow][MaxCol] = {}; //用來標記走過的路
int pathMaze[MaxRow][MaxCol] = {};  //用來存儲正確路徑

int maxabs = 1, maxord = 1; //用戶輸入的迷宮大小

void InitStack() {
    int *absbase, *ordbase, *direbase;
    absbase = (int *)malloc(MAXSTACKSIZE*sizeof(int));
    ordbase = (int *)malloc(MAXSTACKSIZE*sizeof(int));
    direbase = (int *)malloc(MAXSTACKSIZE*sizeof(int));
    if(!absbase || !ordbase || !direbase)
        exit(NOENOUGHROOM);
    Stack.abscissa = absbase;
    Stack.ordinate = ordbase;
    Stack.direction = direbase;
    Stack.maxstacksize = MAXSTACKSIZE;
}

void push(int abscissa, int ordinate, int direction) {
    ++top;
    
    //判斷是否溢出
    if(top >= Stack.maxstacksize){
        int *newabsbase, *newordbase, *newdirebase;
        newabsbase = (int *)realloc(Stack.abscissa, (MAXSTACKSIZE + STACKINCREMENT)*sizeof(int));
        newordbase = (int *)realloc(Stack.ordinate, (MAXSTACKSIZE + STACKINCREMENT)*sizeof(int));
        newdirebase = (int *)realloc(Stack.direction, (MAXSTACKSIZE +STACKINCREMENT)*sizeof(int));
        if(!newordbase || !newabsbase || !newdirebase)
            exit(NOENOUGHROOM);
        Stack.abscissa = newabsbase;
        Stack.ordinate = newordbase;
        Stack.direction = newdirebase;
    }
        
    *(Stack.abscissa + top) = abscissa;
    *(Stack.ordinate + top) = ordinate;
    *(Stack.direction + top -1) = direction;
}

void pop() {
    //判斷是否溢出
    if(top == -2)
        exit(STACKOVERFLOW);
    *(Stack.abscissa + top) = 0;
    *(Stack.ordinate + top) = 0;
    *(Stack.direction + top) = 0;
    --top;
}

//打印點和方向
void printPointAndDirection(int n) {
    switch (*(Stack.direction + n)) {
        case up:
            printf("(%d, %d, up)\n", *(Stack.abscissa + n), *(Stack.ordinate + n));
            break;
        case down:
            printf("(%d, %d, down)\n", *(Stack.abscissa + n), *(Stack.ordinate + n));
            break;
        case left:
            printf("(%d, %d, left)\n", *(Stack.abscissa + n), *(Stack.ordinate + n));
            break;
        case right:
            printf("(%d, %d, right)\n", *(Stack.abscissa + n), *(Stack.ordinate + n));
            break;
    }
}

//打印迷宮解
void printPath() {
    printf("輸出路線:\n");
    int i = 0;
    while(1) {
        printPointAndDirection(i);
        if(*(Stack.abscissa + i) == maxabs && *(Stack.ordinate + i) == maxord)
            break;
        ++i;
    }
}

//標記走過的路
void markMaze(int abscissa, int ordinate) {
    Maze[ordinate][abscissa] = 2;
    pathMaze[ordinate][abscissa] = 2;
}

//打印迷宮并標出正確出路
void printPathMaze() {
    printf("\n迷宮輸出是:\n");
    for(int i = 1;i <= maxord;i++) {
        for(int j = 1;j <= maxabs;j++) {
            printf("%d ", pathMaze[i][j]);
        }
        printf("\n");
    }
    printf("\n\n");
}

//打印用來做標記的迷宮
void printMaze() {
    printf("\n迷宮輸出是:\n");
    for(int i = 1;i <= maxord;i++) {
        for(int j = 1;j <= maxabs;j++) {
            printf("%d ", Maze[i][j]);
        }
        printf("\n");
    }
    printf("\n\n");
}

//初始化迷宮
void InitMaze() {
    printf("\n請輸入迷宮的長和寬：\n");
    scanf("%d %d", &maxabs, &maxord);
    printf("請輸入迷宮：\n");
    for(int i = 1;i <= maxord;i++) {
        for(int j = 1;j <= maxabs;j++) {
            scanf("%d", &Maze[i][j]);
            pathMaze[i][j] = Maze[i][j];
        }
    }
}

//尋找出路
void runMaze() {
    //判斷第一個方向
    push(1, 1 , 0);
    markMaze(1, 1);
    int flag = 0;
    while(1) {
        int xNow, yNow;
        int i = 0;
        xNow = *(Stack.abscissa + top);
        yNow = *(Stack.ordinate + top);
        if(xNow == maxabs && yNow == maxord) {
            flag = 1;
            break;
        }else if(top == -2)
            break;
        for(i = 0;i < 4;i++) {
            int xNext, yNext;
            xNext = xNow + arrowx[i];
            yNext = yNow + arrowy[i];
            //找到可走的點
            if(xNext > 0 && xNext <= maxabs && yNext > 0 && yNext <= maxord && Maze[yNext][xNext] == 0) {
                push(xNext, yNext, i+1);
                markMaze(xNext, yNext);
                break;
            }
        }
        //無路可走
        if(i == 4) {
            pathMaze[yNow][xNow] = 0;
            pop();
        }
    }
    
    if(flag) {
        printPath();
        printPathMaze();
    } else {
        printf("\n沒有出路，無解!\n");
    }
}

int main() {
    InitMaze();
    runMaze();
}