# PCASTLI version 2.3 machine = names("S", "Sigma", "Gamma", "delta", "iota", "h") # States machine.S = array(1, 2) # Input alphabet machine.Sigma = array("a", "b") # Tape alphabet machine.Gamma = array("a", "b", " ") # Transition function source("gen-trans-func.astl") make_trans = make_trans_func(array("init_state", "input_symbol", "new_state", "action")) machine.delta = array( make_trans(1, "a", 1, "R"), make_trans(1, "b", 1, "R"), make_trans(1, " ", 2, "a") ) # Start state machine.iota = 1 # Final state machine.h = 2 source("run_machine.astl") print(run_machine(machine, "abbab ", 0)) print(run_machine(machine, "aaaaaaa", 0)) print(run_machine(machine, "", 0)) print(run_machine(machine, " ", 0))