Files
zern/examples/brainfuck.zr

49 lines
1.5 KiB
Plaintext

func main[] : I64
// https://brainfuck.org/sierpinski.b
let src: String = "++++++++[>+>++++<<-]>++>>+<[-[>>+<<-]+>>]>+[-<<<[->[+[-]+>++>>>-<<]<[<]>>++++++[<<+++++>>-]+<<++.[-]<<]>.>+[>>]>+]"
let src_len: I64 = str.len(src)
let i: I64 = 0
let memory: Ptr = mem.alloc(30000)
mem.zero(memory, 30000)
let p: I64 = 0
while i < src_len
let op: U8 = src[i]
if op == '>'
p = p + 1
else if op == '<'
p = p - 1
else if op == '+'
str.set(memory, p, memory[p]+1)
else if op == '-'
str.set(memory, p, memory[p]-1)
else if op == '.'
io.print_char(memory[p])
else if op == ','
str.set(memory, p, c.getchar())
else if op == '['
if !memory[p]
i = i + 1
let opened: I64 = 0
while i < src_len & !(src[i] == ']' & !opened)
if src[i] == '['
opened = opened + 1
else if src[i] == ']'
opened = opened - 1
i = i + 1
else if op == ']'
if memory[p]
i = i - 1
let closed: I64 = 0
while i >= 0 & !(src[i] == '[' & !closed)
if src[i] == ']'
closed = closed + 1
else if src[i] == '['
closed = closed - 1
i = i - 1
i = i + 1
mem.free(memory)