workingmain.c

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
int main(int c,int*v[])
{
	return c
	?
		v[0]=v[1],
		v[1]=malloc(strlen((char*)v[0])+1),
		strcpy((char*)v[1],(char*)v[0]),
		v[0]=malloc(sizeof(int)*10),
		(*v)[1]=atoi((char*)v[2]),//read start state from second arg and put in 1
		(*v)[2]=0,//put zero into tape pos in 2
		(*v)[3]=3,//start current instruction in 3
		(*v)[4]=c,//save number of instructions in 4
		(*v)[5]=0,//set target_state to 0 in 5
		(*v)[6]=0,//set target_char to 0 in 6
		(*v)[7]=0,//set next_state to 0 in 7
		(*v)[8]=0,//set next_char to 0 in 8
		(*v)[9]=0,//set direction to 0 in 9
		//print tape (2)
		**v=2,main(0,v),

		//call search function (0)
		**v=0,main(0,v),

		free(v[0]),
		free(v[1]),
	0:
		(**v==0?//check this instruction
			(*v)[3]>=(*v)[4]//check if current instruction is in bounds
			?
				puts("done"),
				exit(0),
				//if it is not in bounds, we just do nothing and function returns which ends program through massive stack rewind
			0:
//				puts("scan called"),
				//read in this instruction
				sscanf((char*)v[(*v)[3]],"%d%c%d%c%c",*v+5,(char*)(*v+6),*v+7,(char*)(*v+8),(char*)(*v+9)),
//				printf("cs:%d, ts:%d, tc:%c, cc:%c\n",(*v)[1], (*v)[5], *(char*)(*v+6), ((char*)v[1])[(*v)[2]]),
				(*(char*)(*v+6)==((char*)v[1])[(*v)[2]])&&((*v)[1]==(*v)[5])//if current state equals target state and tape at head equals target char we have a match
				?
//					puts("match gotten"),
					**v=1,main(0,v),//call step function
//					puts("finished step"),
					(*v)[3]=3,//reset current instruction
//					puts("About to call check again"),
					**v=0,main(0,v),//call check again
				0:
//					puts("miss had"),
					(*v)[3]++,//increment current instruction
					**v=0,main(0,v),//call check again
//				0,
//			0,
		**v=-1:0),
		(**v==1?//run a step
//			puts("step called"),
//			printf("cs: %d,ns: %d\n",(*v)[1],(*v)[7]),
			(*v)[1]=(*v)[7],//update state
//			printf("cs: %d\n",(*v)[1]),
			((char*)v[1])[(*v)[2]]=*((char*)&((*v)[8])),//update tape
//			printf("cs:%d, ts:%d, tc:%c, cc:%c\n",(*v)[1], (*v)[5], *(char*)(*v+6), ((char*)v[1])[(*v)[2]]),
			*(char*)&((*v)[9])=='r'//check movement
			?
				(*v)[2]++,//if it is right, increment pos
			0:
				(*v)[2]--,//if it is left, decrement pos
//			0,
			(*v)[2]<0//check if new pos is below zero
			?
				puts("Fell off left side of tape"),
				exit(1),//if it is we bail
			0:
				//otherwise we do nothing
			0,
			((char*)v[1])[(*v)[2]]=='\0' //check if new pos has led us to null char 
			?
				puts("Fell off right side of tape"),
				exit(1),//if it was we bail
			0:
				//otherwise do nothing
			0,
			**v=2,main(0,v),//call print tape
		**v=-1:0),
		(**v==2?//print state and tape
			printf("s:%d, t:%s\n",(*v)[1],(char*)v[1]),
		**v=-1:0),
	0;
}