在我自己的图灵伪代码中:
- 将输入 A0B 复制到磁带 2
- 将 000010000 写入磁带 3
- 将磁带 3 上的数字乘以磁带 2 中的 A
- 从 A 的开头开始
- 将 0 写入磁带 4
- 复制数字 3 => 4
- 在 Tape 3 (3++) 上前进一次
- 除非 A 结束,否则进入第 3 步
- 将答案从磁带 4 移动到磁带 3
- 减少磁带 2 上的数字 B
- 如果磁带 2 上的 B 不为 0,请转到步骤 2
- 将答案从磁带 3 复制到磁带 1
这是应该工作的图灵代码(磁带就像指针,小写字母,输入磁带是i
):
# At the start for 2^3
# i: 000111011110000
# ^
_start_ -> *a = 0, start2
start2 [*i==0] -> i++, *a++ = 0, *b++ = 0, start4
start2 [*i==1] -> i++, *a++ = 1, start2
start4 [*i==0] -> *b-- = 0, b--, initc
start4 [*i==1] -> i++, *b++ = 1, start4
initc -> *c++ = 0, *c++ = 1, *c++ = 1, *c-- = 0, mult
# example
# i: 00011101111000
# ^
# a: 001110000
# ^
# b: 001111000
# ^
# c: 00011000
# ^
mult[*b==0]: lastcpy
mult[*b==1]: b--, *d++ = 0, *d++ = 1, rewa
rewa[*a==0]: a++, a++, multcpy
rewa[*a==1]: a--, rewa
multcpy[*c==1]: c++, multcpy2
multcpy[*c==0]: multcpy3
multcpy2[*a==0]: multcpy
multcpy2[*a==1]: *d++ = 1, multcpy2
multcpy3: *d-- = 0, *c = 0, cpydtoc
cpydtoc[*d==1]: d--, *c++ = 1, cpydtoc
cpydtoc[*d==0]: *c-- = 0, mult
lastcpy[*c==1]: *i++ = 1, c--, lastcpy
lastcpy[*c==0]: *i = 0, _finish_
# Should end with
# i: 00011101111011111111100
# ^
请检查错误:)