Subversion Repositories openrisc

// $G $F.go && $L $F.$A && ./$A.out

// Copyright 2009 The Go Authors. All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.

package main

// brainfuck

var p, pc int
var a [30000]byte

const prog = "++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.!"

func scan(dir int) {
        for nest := dir; dir*nest > 0; pc += dir {
                switch prog[pc+dir] {
                case ']':
                        nest--
                case '[':
                        nest++
                }
        }
}

func main() {
        r := ""
        for {
                switch prog[pc] {
                case '>':
                        p++
                case '<':
                        p--
                case '+':
                        a[p]++
                case '-':
                        a[p]--
                case '.':
                        r += string(a[p])
                case '[':
                        if a[p] == 0 {
                                scan(1)
                        }
                case ']':
                        if a[p] != 0 {
                                scan(-1)
                        }
                default:
                        if r != "Hello World!\n" {
                                panic(r)
                        }
                        return
                }
                pc++
        }
}