Skip to content

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

Typo fix

parent 9c15b506
Hide 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 ...@@ -40,13 +40,13 @@ and string_of_command = function
| Shift 1 -> ">" | Shift 1 -> ">"
| Shift -1 -> "<" | Shift -1 -> "<"
| Shift n when n < 0 -> "(<" ^ string_of_int (-n) ^ ")" | 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 -1 -> "-" | Add -1 -> "-"
| Add n when n < 0 -> "(-" ^ string_of_int (-n) ^ ")" | Add n when n < 0 -> "(-" ^ string_of_int (-n) ^ ")"
| Add n -> "(+" ^ string_of_int n ^ ")" | Add n -> "(+" ^ string_of_int n ^ ")"
| Set 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 -> "." | Out -> "."
| In -> "," | In -> ","
| Loop p -> "[" ^ string_of_program p ^ "]" | 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