HelVM.HelMA.Automata.BrainFuck.Impl.Flat.TableOfInstructions
type HalfTable = FlatTreeInstructionList #
type Table = (HalfTable, HalfTable) #
type TableD = Table -> Table #
currentInstruction :: ([a], [a]) -> Maybe a #
prevInst :: TableD #
nextInst :: TableD #
matchPrevJmp :: TableD #
matchNextJmp :: TableD #
jumpPast :: TableD #
jumpBack :: TableD #