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
— 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
Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.