Skip to content

B
brainfucker
Commit 07547382 authored by Taddeüs Kroes's avatar Taddeüs Kroes
Browse files
Options

Typo fix

parent 9c15b506
Show whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
bf.ml
View file @ 07547382
......@@ -40,13 +40,13 @@ and string_of_command = function
| Shift 1 -> ">"
| Shift -1 -> "<"
| Shift n when n < 0 -> "(<" ^ string_of_int (-n) ^ ")"
| Shift n -> "(+" ^ string_of_int n ^ ")"
| Shift n -> "(>" ^ string_of_int n ^ ")"
| Add 1 -> "+"
| Add -1 -> "-"
| Add n when n < 0 -> "(-" ^ string_of_int (-n) ^ ")"
| Add n -> "(+" ^ string_of_int n ^ ")"
| Set n -> "(=" ^ string_of_int n ^ ")"
| Mul (x, y) -> "(>" ^ string_of_int x ^ "*" ^ string_of_int y ^ ")"
| Mul (x, y) -> "(*" ^ string_of_int x ^ "," ^ string_of_int y ^ ")"
| Out -> "."
| In -> ","
| Loop p -> "[" ^ string_of_program p ^ "]"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment