Turing Machine Simulator

15

Escreva um simulador de máquina de Turing .

Para simplificar, podemos assumir status como inteiro, símbolos como char, símbolo em branco igual a espaço em branco

5 tuplas na forma de estado atual, símbolo de entrada, próximo estado, símbolo de saída, direção (esquerda ou direita), a ordem não é obrigatória, mas especifique se você a troca

A máquina deve parar quando um estado desconhecido é atingido, nenhuma outra condição de parada é permitida.

A fita é infinita nas duas direções e você sempre pode ler um caractere vazio.

Entrada: a fita inicial, um estado inicial e um programa. você pode ler os dados de qualquer lugar no formato que quiser

Saída: a fita após a execução do programa

Necessário: um programa de exemplo executado em cima do seu simulador

Este é um código-colf, portanto, o código mais curto vence.

Vou postar uma implementação e alguns programas de exemplo nas próximas horas.

code-golf interpreter Marco Martinelli
fonte
4
On The Turing completude de PowerPoint (SIGBOVIK)
sergiol

Respostas:

2

GolfScript, 92 caracteres

~:m;n\+{:^.n?)>1<]m{2<1$=},.{~2>~^n/~1>[@\+]n*1$%n/~\1$1<+[\1>.!{;" "}*]n*\%@}{;;^0}if}do n-

A máquina de Turing no GolfScript ficou muito mais longa do que o pretendido. Ainda brincando com diferentes representações da fita.

A primeira linha da entrada é o estado original, a segunda linha a fita inicial, seguida por uma matriz de transições (com estado atual da ordem, símbolo de entrada, próximo estado, direção, símbolo de saída).

Exemplo (também disponível online )

> 0
> '101'
> [[0 '0' 0 1 '0']
>  [0 '1' 0 1 '1']
>  [0 ' ' 1 -1 ' ']
>  [1 '0' 2 1 '1']
>  [1 '1' 3 -1 '0']
>  [3 '0' 2 1 '1']
>  [3 ' ' 2 1 '1']
>  [3 '1' 3 -1 '0']] 

110
Howard
fonte
você bater minha implementação sed por um char, tempo para ver se eu posso fazer melhor
Geoff Reedy
7

GNU sed com -r- 133 117 111 93 caracteres

Sim, o sed está completo. O GNU sed e -r(regexps estendidos) serve apenas para salvar alguns caracteres; é apenas uma pequena alteração para trabalhar com o POSIX sed.

:s
s/^(.*@)(.*)>(.)(.*#\1\3([^@]*@)(..))/\5\2\6>\4/
T
s/(..)l>|r>/>\1/
s/>@/@> /
s/>#/> #/
bs

O formato de entrada é 

[initial state]@[non-empty tape with > marking head position]#[state]@[input symbol][next state]@[output symbol][direction l or r]#...

Os delimitadores @, #e caráter cabeça >não pode ser usado como um símbolo na fita. Os rótulos de estado não podem conter @ >ou #.

Ele executará todos os programas na entrada, um por linha

Exemplos:

Marco é um n b n programa

Entrada

0@>aaabbb#0@a1@ r#0@ 4@ r#1@a1@ar#1@b1@br#1@ 2@ l#2@b3@ l#2@a5@al#3@b3@bl#3@a3@al#3@ 0@ r#4@ 5@Tr

Resultado

5@    T>  #0@a1@ r#0@ 4@ r#1@a1@ar#1@b1@br#1@ 2@ l#2@b3@ l#2@a5@al#3@b3@bl#3@a3@al#3@ 0@ r#4@ 5@Tr

Olá do Marco! programa

Entrada

0@> #0@ 1@Hr#1@ 2@er#2@ 3@lr#3@ 4@lr#4@ 5@or#5@ 6@!r

Resultado

6@Hello!> #0@ 1@Hr#1@ 2@er#2@ 3@lr#3@ 4@lr#4@ 5@or#5@ 6@!r
Geoff Reedy
fonte
7

Estou um pouco atrasado, mas pensei em deixar isso aqui ...

Máquina de Turing Simulando uma máquina de Turing: 370 bytes?

Aqui estou usando a estrutura que Turing usou em seu artigo de 1936. Estou usando um símbolo = um byte, incluindo m-configs e operações.

╔═══════════════╦═══════╦═══════════════════╦═══════════════╗
║    m-config    ║ Symbol ║     Operations      ║ Final m-config ║
╠═══════════════╬═══════╬═══════════════════╬═══════════════╣
║ currentCommand ║ Any    ║ L                   ║ currentCommand ║
║                ║ *      ║ MR                  ║ readCommand    ║
╠----------------╬--------╬---------------------╬----------------╣
║ nextCommand    ║ Any    ║ L                   ║ nextCommand    ║
║                ║ *      ║ E  R  R  R  P* R    ║ readCommand    ║
╠----------------╬--------╬---------------------╬----------------╣
║ readCommand    ║ P      ║ R                   ║ readCommandP   ║
║                ║ M      ║ R                   ║ readCommandM   ║
║                ║ G      ║ R                   ║ readCommandG   ║
║                ║ E      ║ R                   ║ MHPNone        ║
╠----------------╬--------╬---------------------╬----------------╣
║ readCommandP   ║ 0      ║                     ║ MHP0           ║
║                ║ 1      ║                     ║ MHP1           ║
║                ║ e      ║                     ║ MHPe           ║
║                ║ x      ║                     ║ MHPx           ║
║                ║ None   ║                     ║ MHPNone        ║
╠----------------╬--------╬---------------------╬----------------╣
║ readCommandM   ║ R      ║                     ║ MHMR           ║
║                ║ L      ║                     ║ MHML           ║
╠----------------╬--------╬---------------------╬----------------╣
║ readCommandG   ║ 1      ║                     ║ G2<1           ║
║                ║ 2      ║                     ║ G2<2           ║
║                ║ 3      ║                     ║ G2<3           ║
║                ║ 4      ║                     ║ G2<4           ║
║                ║ 5      ║                     ║ G2<5           ║
╠----------------╬--------╬---------------------╬----------------╣
║ G2<1           ║ int(1) ║ L  P@ R  R  R  P* R ║ GTS            ║
║                ║ <      ║                     ║ G21            ║
║                ║ *      ║ E  L                ║ G2<1           ║
║                ║ @      ║ E  L                ║ G2<1           ║
║                ║ Any    ║ L                   ║ G2<1           ║
╠----------------╬--------╬---------------------╬----------------╣
║ G2<2           ║ int(2) ║ L  P@ R  R  R  P* R ║ GTS            ║
║                ║ <      ║                     ║ G22            ║
║                ║ *      ║ E  L                ║ G2<2           ║
║                ║ @      ║ E  L                ║ G2<2           ║
║                ║ Any    ║ L                   ║ G2<2           ║
╠----------------╬--------╬---------------------╬----------------╣
║ G2<3           ║ int(3) ║ L  P@ R  R  R  P* R ║ GTS            ║
║                ║ <      ║                     ║ G23            ║
║                ║ *      ║ E  L                ║ G2<3           ║
║                ║ @      ║ E  L                ║ G2<3           ║
║                ║ Any    ║ L                   ║ G2<3           ║
╠----------------╬--------╬---------------------╬----------------╣
║ G2<4           ║ int(4) ║ L  P@ R  R  R  P* R ║ GTS            ║
║                ║ <      ║                     ║ G24            ║
║                ║ *      ║ E  L                ║ G2<4           ║
║                ║ @      ║ E  L                ║ G2<4           ║
║                ║ Any    ║ L                   ║ G2<4           ║
╠----------------╬--------╬---------------------╬----------------╣
║ G2<5           ║ int(5) ║ L  P@ R  R  R  P* R ║ GTS            ║
║                ║ <      ║                     ║ G25            ║
║                ║ *      ║ E  L                ║ G2<5           ║
║                ║ @      ║ E  L                ║ G2<5           ║
║                ║ Any    ║ L                   ║ G2<5           ║
╠----------------╬--------╬---------------------╬----------------╣
║ G21            ║ int(1) ║ L  P@ R             ║ GTS            ║
║                ║ Any    ║ R                   ║ G21            ║
╠----------------╬--------╬---------------------╬----------------╣
║ G22            ║ int(2) ║ L  P@ R             ║ GTS            ║
║                ║ Any    ║ R                   ║ G22            ║
╠----------------╬--------╬---------------------╬----------------╣
║ G23            ║ int(3) ║ L  P@ R             ║ GTS            ║
║                ║ Any    ║ R                   ║ G23            ║
╠----------------╬--------╬---------------------╬----------------╣
║ G24            ║ int(4) ║ L  P@ R             ║ GTS            ║
║                ║ Any    ║ R                   ║ G24            ║
╠----------------╬--------╬---------------------╬----------------╣
║ G25            ║ int(5) ║ L  P@ R             ║ GTS            ║
║                ║ Any    ║ R                   ║ G25            ║
╠----------------╬--------╬---------------------╬----------------╣
║ GTS            ║ ^      ║ R                   ║ TS             ║
║                ║ Any    ║ R                   ║ GTS            ║
╠----------------╬--------╬---------------------╬----------------╣
║ TS             ║ 0      ║                     ║ RL0            ║
║                ║ 1      ║                     ║ RL1            ║
║                ║ e      ║                     ║ RLe            ║
║                ║ x      ║                     ║ RLx            ║
║                ║ None   ║                     ║ RLNone         ║
╠----------------╬--------╬---------------------╬----------------╣
║ RL0            ║ @      ║ R  R                ║ GTS0           ║
║                ║ Any    ║ L                   ║ RL0            ║
╠----------------╬--------╬---------------------╬----------------╣
║ RL1            ║ @      ║ R  R                ║ GTS1           ║
║                ║ Any    ║ L                   ║ RL1            ║
╠----------------╬--------╬---------------------╬----------------╣
║ RLe            ║ @      ║ R  R                ║ GTSe           ║
║                ║ Any    ║ L                   ║ RLe            ║
╠----------------╬--------╬---------------------╬----------------╣
║ RLx            ║ @      ║ R  R                ║ GTSx           ║
║                ║ Any    ║ L                   ║ RLx            ║
╠----------------╬--------╬---------------------╬----------------╣
║ RLNone         ║ @      ║ R  R                ║ GTSNone        ║
║                ║ Any    ║ L                   ║ RLNone         ║
╠----------------╬--------╬---------------------╬----------------╣
║ GTS0           ║ 0      ║ R  P*  R            ║ readCommand    ║
║                ║ Any    ║ R                   ║ GTS0           ║
╠----------------╬--------╬---------------------╬----------------╣
║ GTS1           ║ 1      ║ R  P*  R            ║ readCommand    ║
║                ║ Any    ║ R                   ║ GTS1           ║
╠----------------╬--------╬---------------------╬----------------╣
║ GTSe           ║ e      ║ R  P*  R            ║ readCommand    ║
║                ║ Any    ║ R                   ║ GTSe           ║
╠----------------╬--------╬---------------------╬----------------╣
║ GTSx           ║ x      ║ R  P*  R            ║ readCommand    ║
║                ║ Any    ║ R                   ║ GTSx           ║
╠----------------╬--------╬---------------------╬----------------╣
║ GTSNone        ║ _      ║ R  P*  R            ║ readCommand    ║
║                ║ Any    ║ R                   ║ GTSNone        ║
╠----------------╬--------╬---------------------╬----------------╣
║ MHP0           ║ ^      ║ R                   ║ Print0         ║
║                ║ Any    ║ R                   ║ MHP0           ║
╠----------------╬--------╬---------------------╬----------------╣
║ MHP1           ║ ^      ║ R                   ║ Print1         ║
║                ║ Any    ║ R                   ║ MHP1           ║
╠----------------╬--------╬---------------------╬----------------╣
║ MHPe           ║ ^      ║ R                   ║ Printe         ║
║                ║ Any    ║ R                   ║ MHPe           ║
╠----------------╬--------╬---------------------╬----------------╣
║ MHPx           ║ ^      ║ R                   ║ Printx         ║
║                ║ Any    ║ R                   ║ MHPx           ║
╠----------------╬--------╬---------------------╬----------------╣
║ MHPNone        ║ ^      ║ R                   ║ PrintNone      ║
║                ║ Any    ║ R                   ║ MHPNone        ║
╠----------------╬--------╬---------------------╬----------------╣
║ MHMR           ║ ^      ║ R  R                ║ MHR            ║
║                ║ Any    ║ R                   ║ MHMR           ║
╠----------------╬--------╬---------------------╬----------------╣
║ MHML           ║ ^      ║ L                   ║ MHL            ║
║                ║ Any    ║ R                   ║ MHML           ║
╠----------------╬--------╬---------------------╬----------------╣
║ Print0         ║ ^      ║ R                   ║ Print0         ║
║                ║ None   ║ P0                  ║ nextCommand    ║
║                ║ Any    ║ E                   ║ Print0         ║
╠----------------╬--------╬---------------------╬----------------╣
║ Print1         ║ ^      ║ R                   ║ Print1         ║
║                ║ None   ║ P1                  ║ nextCommand    ║
║                ║ Any    ║ E                   ║ Print1         ║
╠----------------╬--------╬---------------------╬----------------╣
║ Printx         ║ ^      ║ R                   ║ Printx         ║
║                ║ None   ║ Px                  ║ nextCommand    ║
║                ║ Any    ║ E                   ║ Printx         ║
╠----------------╬--------╬---------------------╬----------------╣
║ Printe         ║ ^      ║ R                   ║ Printe         ║
║                ║ None   ║ Pe                  ║ nextCommand    ║
║                ║ Any    ║ E                   ║ Printe         ║
╠----------------╬--------╬---------------------╬----------------╣
║ PrintNone      ║ ^      ║ R                   ║ PrintNone      ║
║                ║ None   ║                     ║ nextCommand    ║
║                ║ Any    ║ E                   ║ PrintNone      ║
╠----------------╬--------╬---------------------╬----------------╣
║ MHL            ║ ^      ║ R  R                ║ MHL            ║
║                ║ [      ║                     ║ SBL            ║
║                ║ Any    ║ L  P^ R  R  E       ║ nextCommand    ║
╠----------------╬--------╬---------------------╬----------------╣
║ MHR            ║ ^      ║ R  R                ║ MHR            ║
║                ║ ]      ║                     ║ SBR            ║
║                ║ None   ║ P^ L  L  E          ║ nextCommand    ║
╠----------------╬--------╬---------------------╬----------------╣
║ SBR            ║ ]      ║ E  R  R  P]         ║ currentCommand ║
╠----------------╬--------╬---------------------╬----------------╣
║ SBL            ║ ]      ║ R                   ║ SBLE           ║
║                ║ Any    ║ R                   ║ SBL            ║
╠----------------╬--------╬---------------------╬----------------╣
║ SBLE           ║ [      ║                     ║ currentCommand ║
║                ║ None   ║ L                   ║ SBLE           ║
║                ║ Any    ║ E  R  R  P] L       ║ SBLE           ║
╚═══════════════╩═══════╩═══════════════════╩═══════════════╝

Aqui está um dos exemplos de Turing do artigo acima para minha máquina:

['<', None, 1, '0', None, 'P', 'e', None, 'M', 'R', None, 'P', 'e', None, 'M', 'R', None, 'P', '0', None, 'M', 'R', None, 'M', 'R', None, 'P', '0', None, 'M', 'L', None, 'M', 'L', None, 'G', '2',
                      '1', None, 'P', 'e', None, 'M', 'R', None, 'P', 'e', None, 'M', 'R', None, 'P', '0', None, 'M', 'R', None, 'M', 'R', None, 'P', '0', None, 'M', 'L', None, 'M', 'L', None, 'G', '2',
                      'e', None, 'P', 'e', None, 'M', 'R', None, 'P', 'e', None, 'M', 'R', None, 'P', '0', None, 'M', 'R', None, 'M', 'R', None, 'P', '0', None, 'M', 'L', None, 'M', 'L', None, 'G', '2',
                      'x', None, 'P', 'e', None, 'M', 'R', None, 'P', 'e', None, 'M', 'R', None, 'P', '0', None, 'M', 'R', None, 'M', 'R', None, 'P', '0', None, 'M', 'L', None, 'M', 'L', None, 'G', '2',
                      '_', None, 'P', 'e', None, 'M', 'R', None, 'P', 'e', None, 'M', 'R', None, 'P', '0', None, 'M', 'R', None, 'M', 'R', None, 'P', '0', None, 'M', 'L', None, 'M', 'L', None, 'G', '2',

             None, 2, '1', None, 'M', 'R', None, 'P', 'x', None, 'M', 'L', None, 'M', 'L', None, 'M', 'L', None, 'G', '2',
                      '0', None, 'G', '3',

             None, 3, '0', None, 'M', 'R', None, 'M', 'R', None, 'G', '3',
                      '1', None, 'M', 'R', None, 'M', 'R', None, 'G', '3',
                      '_', None, 'P', '1', None, 'M', 'L', None, 'G', '4',

             None, 4, 'x', None, 'E', 'E', None, 'M', 'R', None, 'G', '3',
                      'e', None, 'M', 'R', None, 'G', '5',
                      '_', None, 'M', 'L', None, 'M', 'L', None, 'G', '4',

             None, 5, '0', None, 'M', 'R', None, 'M', 'R', None, 'G', '5',
                      '1', None, 'M', 'R', None, 'M', 'R', None, 'G', '5',
                      'e', None, 'M', 'R', None, 'M', 'R', None, 'G', '5',
                      'x', None, 'M', 'R', None, 'M', 'R', None, 'G', '5',
                      '_', None, 'P', '0', None, 'M', 'L', None, 'M', 'L', None, 'G', '2',
        None, '[', '^', None, ']', None]

Experimente online! (Usa o Python 3 como intérprete) --Edit: Acabei de verificar o TIO, e ele parece não funcionar direito ... Experimente na sua máquina local e deve (espero) funcionar. Faz no meu.

Bendl
fonte
Nenhum dano pretendido, apenas alinhando as bordas na mesa.
Greg Bacon
@GregBacon Sem ofensas ... talvez haja alguma diferença entre a forma como os computadores diferentes processam os bloqueios de código, mas sua edição piorou muito o alinhamento na minha tela de edição ... Tenho certeza de que ficou bem quando você sugeriu a edição; não tenho certeza qual é o problema
BENDL
3

APL (110)

(Não é tão curto assim ...)

0(''⍞){×⍴X←0~⍨⍺∘{x y S T s m t←⍺,⍵⋄S T≡x,⊃⊃⌽y:s,⊂(⊃y){m:(¯1↓⍺)(⍵,⍨¯1↑⍺)⋄(⍺,⊃⍵)(1↓⍵)}t,1↓⊃⌽y⋄0}¨⍵:⍵∇⍨⊃X⋄,/⊃⌽⍺}⎕

Ele lê duas linhas do teclado: a primeira é o programa e a segunda é a fita inicial.

O formato é

(in-state in-tape out-state movement out-tape)

e todos eles devem estar na mesma linha. 'Movimento' é 0 para mover para a direita e 1 para mover para a esquerda.

Exemplo de programa (quebras de linha inseridas para maior clareza, elas devem estar todas em uma linha).

(0 ' ' 1 0 '1')
(0 '1' 0 0 '1')
(1 '1' 1 0 '1')
(1 ' ' 2 1 ' ')
(2 '1' 3 1 ' ')

O programa adiciona dois números unários, por exemplo:

in:  1111 111
out: 1111111

Exemplo 2 (adaptado do programa de incremento binário da entrada de Marco Martinelli):

(0 '0' 0 0 '0')
(0 '1' 0 0 '1')
(0 ' ' 1 1 ' ')
(1 '0' 2 0 '1')
(1 '1' 3 1 '0')
(3 '0' 2 0 '1')
(3 ' ' 2 0 '1')
(3 '1' 3 1 '0')
marinus
fonte
Como posso experimentar? Eu estou usando linux e tentou com aplus mas ele não funciona (indefinido símbolo :() Qual intérprete / compilador que eu deveria tentar.?
Marco Martinelli
Estou usando o Dyalog APL. Não estou ciente de usar nenhuma função específica do Dyalog, mas o A + não é completamente a mesma coisa. Existe uma versão gratuita do Dyalog, mas é apenas para Windows. (Pode ser executado no Wine, mas usa seu próprio método de entrada para que você possa digitar APL.) Se você executar o Dyalog, basta digitar / colar o código do APL (em uma linha) e, em seguida, o programa da máquina de Turing (em uma segunda linha). ), depois a fita inicial (na terceira linha).
marinus
ok, vou tentar isso, obrigado
Marco Martinelli
3

Python, 101 189 152 142 142

a=dict(zip(range(len(b)),b))
r=eval(p)
i=s=0
while 1:
 c=a.get(i,' ')
 s,m,a[i]=r[s,c]
 if 0==m:exit([x[1]for x in sorted(a.items())])
 i=i+m

b e p são as entradas, b é a fita inicial, p codifica as regras como (representação de sequência de) um ditado de tupla (no estado, em fita) para tupla (fora do estado, movimento da cabeça, fita fora) . Se o movimento for 0, o programa termina, 1 é o movimento para a direita e -1 é o movimento para a esquerda.

b="aaba"

p="""{(0, 'a'): (1, 1, 'a'),
      (0, 'b'): (0, 1, 'b'),
      (1, 'a'): (1, 1, 'a'),
      (1, 'b'): (0, 1, 'b'),
      (1, ' '): (1, 0, 'Y'),
      (0, ' '): (0, 0, 'N')}"""

Este programa de amostra testa se a última letra da string (antes da fita vazia) é 'a'; nesse caso, ele grava 'Y' no final da string (primeiro espaço vazio).

Editar 1:

A fita foi alterada para ser representada como um ditado, pois parecia a maneira mais curta de gravar uma estrutura de dados extensível. A penúltima linha está principalmente transformando-a novamente em forma legível para saída.

Edição 2:

Obrigado ao Strigoides por muitas melhorias.

Edição 3:

Eu tinha feito desnecessariamente 0, pois a saída deixaria o local como está. Eu removi isso, pois sempre podemos escrever a saída da mesma forma que a entrada.

shiona
fonte
Não acho que essa seja uma solução válida, porque na sua implementação a fita é limitada. Dessa forma, você precisa conhecer antecipadamente o consumo de memória do seu programa. E há problemas se movendo para a esquerda. Dica: uma fita pode ser feita a partir de duas pilhas modificadas nas quais você sempre pode exibir um símbolo em branco.
Marco Martinelli
Ah verdade. Desculpe, não achei isso tão longe.
shiona 23/10/12
Uhm .. afaik a fita é infinita em ambas as direções e você sempre pode ler um caractere vazio. Vou especificar isso na resposta.
Marco Martinelli
Você estava certo (tínhamos regras mais estritas em nossos exercícios). Corrigi pelo menos algumas das falhas.
shiona 23/10/12
Você pode remover o espaço na primeira linha, r=0;s=0pode se tornar r=s=0(e o ponto-e-vírgula no final dessa linha é desnecessário), você pode remover a função w, pois não é usada, os colchetes podem ser removidos (s,m,t)=r[s,c], o bloco try/ exceptpode ser reduzido using dict.get; c=a.get(i,' '), como m0 ou 1, você pode usar if m-1:e reduzir a sua map()chamada convertendo-a em uma lista de compreensão.
Strigoides 24/10/12
3

Postscript (205) (156) (150) (135)

<<
>>begin
/${stopped}def([){add dup{load}${exit}if}def
0 A{1 index{load}${pop( )}if
get{exec}${exit}if}loop
3{-1[pop}loop{1[print}loop

Provavelmente, isso é trapaça, mas a tabela de transição contém código para realizar as transições. E como a fita é representada por um mapeamento de números inteiros para números inteiros, eu representei estados como um mapeamento de nomes para dicionários, para que a fita e o programa coexistam no mesmo dicionário anônimo.

Economias extras, tornando todos os nomes de estados executáveis, para que eles sejam carregados automaticamente .

Sem jogar com o programa "Hello" incorporado. 52 caracteres extras compram um loop para ler a fita de stdin.Corra com gsnd -q tm.ps.

%!
<<
    /A<<( ){dup(H)def 1 add B}>>
    /B<<( ){dup(e)def 1 add C}>>
    /C<<( ){dup(l)def 1 add D}>>
    /D<<( ){dup(l)def 1 add E}>>
    /E<<( ){dup(o)def 1 add F}>>
>>begin %ds: int-keys=tape name-keys=prog
0 A %pos state
{ %loop
    1 index{load}stopped{pop( )}if  %pos state tape(pos)
    get    {exec}stopped{exit  }if  %new-pos new-state
} loop
% Loop from tape position 0 to left until left tape end is found
0{                                  %pos
  -1 add                            %new-pos
  dup{load}stopped{exit}if          %new-pos tape(new-pos)
  pop                               %new-pos tape(new-pos)
}loop
% Move to the right and print all chars until right end is hit
{                                   %pos
  1 add                             %new-pos
  dup{load}stopped{exit}if          %new-pos tape(new-pos)
  print                             %new-pos tape(new-pos)
}loop

Portanto, o formato da tabela é 

/in-state<<in-tape{dup out-tape def movement add out-state}
           in-tape2{dup out-tape2 def movement2 add out-state2}>>

onde in-stateé um nome in-tapee out-tapesão caracteres (inteiros ou expressões que produzem números inteiros) movementé -1para esquerda ou 1para direita e out-stateé um nome executável . A in-tapetransição múltipla para o mesmo estado deve ser combinada como acima.

luser droog
fonte
Outro problema é que não há previsão para descobrir que parte da fita é interessante. Isso vai custar bastante para fazer um currentdict{search-for-min-and-max}forall juggle-params-for-for. :(
luser droog 27/10/12
Tentei o meu, mas estava muito além da sua concisão. Mas eu sugeri algumas melhorias no seu código.
Thomas W.
BTW, e a fita inicial? Eu removi a linha comentada do código não-golfado porque ele não parecia funcionar. ( "0" não retorna-1, por conseguinte, não iteração do loop)
Thomas W.
Excelentes melhorias! ... Sobre o código de fita inicial, acho que o digitei errado no meu notebook. SB 0 1 0 not{(%stdin)(r)file read not{exit}if def}for. Não sei por que pensei que poderia me safar omitindo isso da versão do golfe. : P
luser droog
Oh, espere, -1! Então0 not deveria ser 16#7fffffff. Desculpe. Aha! por isso foi comentado! Ele saiu direto do notebook, não foi testado e eu cortei todos os comentários sem olhar quando o joguei. Não conte ao cara do Python! : P
luser droog
2

C (ainda não jogou golfe)

Suponho que não posso ganhar com isso, ainda assim foi divertido fazê-lo funcionar. Isto é ainda mais verdade agora que ele realmente faz o trabalho. :)

Exceto que é apenas infinito em uma direção. Suponho que também precise de uma fita negativa. Suspiro....

Negativo não foi tão ruim. Entrelaçamos os dois lados como pares e probabilidades. Agora a complicação precisa exibir a fita em ordem seqüencial , pois o arquivo em si agora está confuso. Esta é uma alteração legítima a ser feita, eu acho. Turing se simplificou dessa maneira.

#include<stdio.h>
int main(int c, char**v){
    int min=0,max=0;
    int pos=0,qi;sscanf(v[1],"%d",&qi);
    FILE*tab=fopen(v[2],"r");
    FILE*tape=fopen(v[3],"r+");
    setbuf(tape,NULL);
    do {
        min = pos<min? pos: min;
        max = pos>max? pos: max;
        fseek(tape,(long)(abs(pos)*2)-(pos<0),SEEK_SET);
        int c = fgetc(tape), qt=qi-1,qr;
        fseek(tape,(long)(abs(pos)*2)-(pos<0),SEEK_SET);
        char x = c==EOF?' ':c, xt=x-1,xr,d[2];
        if (x == '\n') x = ' ';
printf("%d '%c' %d (%d)\n", qi, x, pos, (int)ftell(tape));
        while((qt!=qi)||(xt!=x)){
            fscanf(tab, "%d '%c' %d '%c' %1[LRN]", &qt, &xt, &qr, &xr, d);
            if (feof(tab)){
                goto HALT;
            }
printf("%d '%c' %d '%c' %s\n", qt, xt, qr, xr, d);
        }
        qi=qr;
        rewind(tab);
        fputc(xr,tape);
        pos+=*d=='L'?-1:*d=='R'?1:0;
    } while(1);
HALT:
printf("[%d .. %d]:\n", min, max);
    for (pos = min; pos <= max; pos++){
        fseek(tape,(long)(abs(pos)*2)-(pos<0),SEEK_SET);
        //printf("%d ",pos);
        putchar(fgetc(tape));
        //puts("");
    }
    return qi;
}

E aqui está o teste:

522(1)04:33 AM:~ 0> cat bab.tm
0 'a' 0 'b' R
0 'b' 0 'a' R
523(1)04:33 AM:~ 0> echo aaaaa > blank; make tm ; tm 0 bab.tm blank; echo; cat blank
make: `tm' is up to date.
0 'a' 0 (0)
0 'a' 0 'b' R
0 'a' 1 (2)
0 'a' 0 'b' R
0 'a' 2 (4)
0 'a' 0 'b' R
0 ' ' 3 (6)
0 'a' 0 'b' R
0 'b' 0 'a' R
[0 .. 3]:
bbbÿ
babab

O programa gera a fita em ordem sequencial, mas o arquivo representa os lados negativo e positivo intercalados.

luser droog
fonte
Há problemas com sua implementação. Tente este programa que troca aeb 0 'a' 0 'b' R; 0 'b' 0 'a' Rpela entrada aaa, a saída é bab em vez de bbb. E há problemas se movendo para a esquerda.
Marco Martinelli
Grata pela atenção! Atualização corrige os dois, eu acho (espero).
Luser droog 24/10/12
uhm .. ainda ficando bab #
Marco Martinelli
Sim, mas desta vez está correto! 'aaa' corresponde às posições [0, -1,1] na fita. Mas a saída que deve mostrar isso claramente precisa de trabalho.
Luser droog 24/10/12
1

Groovy 234 228 154 153 149 139 124

n=[:];i=0;t={it.each{n[i++]=it};i=0};e={p,s->a=p[s,n[i]?:' '];if(a){n[i]=a[1];i+=a[2];e(p,a[0])}else n.sort()*.value.join()}

Formatado para facilitar a leitura

n=[:];
i=0;
t={it.each{n[i++]=it};i=0};
e={p,s->
    a=p[s,n[i]?:' '];
    if(a){
        n[i]=a[1];
        i+=a[2];
        e(p,a[0])
    }else n.sort()*.value.join()
}

t é a função que define a fita e é a função que avalia o programa

Exemplo 1 - Imprimir "Olá!" na fita :)

t('')
e([[0,' ']:[1,'H',1],
   [1,' ']:[2,'e',1],
   [2,' ']:[3,'l',1],
   [3,' ']:[4,'l',1],
   [4,' ']:[5,'o',1],
   [5,' ']:[6,'!',1]],0)

Exemplo 2 - Deixar um T na fita, se a cadeia inicial é na forma de um n b n , parada de outro modo.

t('aaabbb')
e([[0,'a']:[1,' ',1],
   [0,' ']:[4,' ',1],
   [1,'a']:[1,'a',1],
   [1,'b']:[1,'b',1],
   [1,' ']:[2,' ',-1],
   [2,'b']:[3,' ',-1],
   [2,'a']:[5,'a',-1],
   [3,'b']:[3,'b',-1],
   [3,'a']:[3,'a',-1],
   [3,' ']:[0,' ',1],
   [4,' ']:[5,'T',1]],0)

Exemplo 3 - Incremento de um número binário

t('101')
e([[0,'0']:[0,'0',1],
   [0,'1']:[0,'1',1],
   [0,' ']:[1,' ',-1],
   [1,'0']:[2,'1',1],
   [1,'1']:[3,'0',-1],
   [3,'0']:[2,'1',1],
   [3,' ']:[2,'1',1],
   [3,'1']:[3,'0',-1]],0)

nos exemplos 1 significa mover para a direita e -1 significa mover para a esquerda

Marco Martinelli
fonte