Brainfuck interpreter written in Odin.

brainfuck.odin

import "core:fmt.odin"

interpret :: proc(program: string) {
	tape: [30000]u8 = 0;
	
	ptr := 0;

	index := 0;
	for index < len(program) {
		switch program[index] {
		case '+': tape[ptr] += 1;
		case '-': tape[ptr] -= 1;
		case '>': ptr += 1;
		case '<': ptr -= 1;
		case ',': continue; // unimplemented
		case '.': fmt.printf("%c", tape[ptr]);
		case '[':
			if tape[ptr] == 0 {
				nesting := 1;
				for nesting != 0 {
					index += 1;
					switch program[index] {
					case '[': nesting += 1;
					case ']': nesting -= 1;
					case:
					}
				}
			}
		case ']':
			if tape[ptr] != 0 {
				nesting := 1;
				for nesting != 0 {
					index -= 1;
					switch program[index] {
					case '[': nesting -= 1;
					case ']': nesting += 1;
					case:
					}
				}
			}
		case:
		}
		index += 1;
	}
}

HELLO_WORLD :: string("++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.");

main :: proc() {
	interpret(HELLO_WORLD);
}