65
( ) B
findPair (findPair2, "(", R) - (final, B, R)
findPair2 (findPair2, "(", R) (removePair, ")", L) -
removePair (fetch, "(", R) (fetch, ")", R) (goBack, B, L)
fetch (retrieve, "(", R) (retreive, ")", R) (retreive, B, R)
retreive (returnOpen, "(", L) (returnClosed, ")", L)(returnBlank, B, L)
returnOpen (writeOpen, "(", L) (writeOpen, ")", L) (writeOpen, B, L)
returnClosed (writeClosed, "(", L)(writeClosed, ")", L)(writeClosed, B, L)
returnBlank (writeBlank "(", L) (writeBlank, ")", L) (writeBlank, B, L)
writeOpen (removePair,"(", R) (removePair,"(", R) -
writeClosed (removePair,")", R) (removePair,")", R) -
writeBlank (removePair,B, R) (removePair,B, R) -
goBack - - (backAgain, B, L)
backAgain - - (seekFront, B, L)
seekFront (seekFront, "(", L) (seekFront, ")", L) (findPair, B, R)
final* - - -
Roger’s TM for balanced parenthesis: