Brainfuck インタプリタ - zyxwvã®æ—¥è¨˜å¯ã‚‹å‰ã« OCaml ã§ãªã‚“ã‹æ›¸ã„ã¦ã¿ã‚‹ã‹ã€ã¨æ€ã£ã¦æ›¸ã„ã¦ã¿ãŸã€‚ exception Unexpected_char let interpret str = (* ãƒãƒƒãƒ•ã‚¡ *) let buf = Array.create 3000 0 in (* 対応ã™ã‚‹å³æ‹¬å¼§(])を探ã—ã«è¡Œã *) let rec rp idx n = match String.get str idx with | '[' -> rp (idx+1) (n+1) | ']' -> if n=0 then idx else rp (idx+1) (n-1) | _ -> rp (idx+1) n (* 対応ã™ã‚‹å·¦æ‹¬å¼§([)を探ã—ã«è¡Œã *) and lp idx n = match String.get str idx with | '[' -> if n=0 then idx else lp (idx-1) (n-
{{#tags}}- {{label}}
{{/tags}}