summaryrefslogtreecommitdiff
path: root/gcc/testsuite/go.test/test/turing.go
blob: 0af39de8b203d692c27f28db99be37629903de02 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
// $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() {
	for {
		switch prog[pc] {
			case '>':
					p++
			case '<':
					p--
			case '+':
					a[p]++
			case '-':
					a[p]--
			case '.':
					print(string(a[p]))
			case '[':
				if a[p] == 0 {
					scan(1)
				}
			case ']':
				if a[p] != 0 {
					scan(-1)
				}
			default:
					return
		}
		pc++
	}
}