使い方はHaskell版と一緒 type status = { mutable cptr : int; code : string; mutable mptr : int; mutable mem : int array; };; type instruction = { pinc : string; pdec : string; dinc : string; ddec : string; out : string; inp : string; lps : …