Turing Machine Simulator

15

Escribe un simulador de máquina de Turing .

Para simplificar, podemos suponer estados como enteros, símbolos como caracteres, símbolos en blanco es igual a espacios en blanco

5-tuplas en forma de estado actual, símbolo de entrada, siguiente estado, símbolo de salida, dirección (izquierda o derecha) el pedido no es obligatorio, pero especifique si lo intercambia

La máquina debe detenerse cuando se alcanza un estado desconocido, no se permite ninguna otra condición de detención.

La cinta es infinita en ambas direcciones y siempre puedes leer un carácter vacío.

Entrada: la cinta inicial, un estado inicial y un programa. puede leer los datos desde cualquier lugar en el formato que desee

Salida: la cinta después de la ejecución del programa.

Requerido: un programa de ejemplo que se ejecuta en la parte superior de su simulador

Este es un código-colf, por lo que gana el código más corto.

Publicaré una implementación y algunos programas de ejemplo en las próximas horas.

Marco Martinelli
fuente

Respuestas:

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-

La máquina de Turing en GolfScript se hizo mucho más larga de lo previsto. Todavía jugando con diferentes representaciones de la cinta.

La primera línea de la entrada es el estado original, la segunda línea la cinta inicial, seguida de una matriz de transiciones (con el estado actual del pedido, el símbolo de entrada, el siguiente estado, la dirección, el símbolo de salida).

Ejemplo (también disponible en línea )

> 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
fuente
superaste mi implementación sed por un char, es hora de ver si puedo hacerlo mejor
Geoff Reedy
7

GNU sed con -r- 133 117 111 93 caracteres

Sí, sed se está completando. GNU sed y -r(regexps extendidos) es solo para guardar algunos caracteres, es solo un pequeño cambio para trabajar con POSIX sed.

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

El formato de entrada es

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

Los delimitadores @, #y el carácter de cabeza >no se pueden utilizar como un símbolo en la cinta. Las etiquetas estatales no pueden contener @ >o #.

Ejecutará todos los programas en la entrada, uno por línea

Ejemplos:

Marco es un 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

Salida

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

Hola Marco! programa

Entrada

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

Salida

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

Así que llego un poco tarde, pero pensé que dejaría esto aquí ...

Máquina de Turing Simulando una máquina de Turing: ¿370 bytes?

Aquí estoy usando la estructura que Turing usó en su artículo de 1936. Estoy usando un símbolo = un byte, incluidas m-configs y operaciones.

╔═══════════════╦═══════╦═══════════════════╦═══════════════╗
║    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           ║
╚═══════════════╩═══════╩═══════════════════╩═══════════════╝

Este es uno de los ejemplos de Turing del documento anterior para mi 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]

Pruébalo en línea! (Utiliza Python 3 como intérprete) --Editar: Acabo de comprobar el TIO, y no parece funcionar realmente bien ... Pruébelo en su máquina local y debería (con suerte) funcionar. Lo hace en el mío.

Bendl
fuente
No se pretende dañar, solo alineando los bordes de la mesa.
Greg Bacon
@GregBacon Sin ofender ... tal vez haya alguna diferencia entre cómo las diferentes computadoras procesan bloques de código, pero su edición hizo que la alineación fuera mucho peor en mi pantalla de edición ... Estoy seguro de que se veía bien cuando sugirió la edición; no estoy seguro de cuál es el problema
bendl
3

APL (110)

(Ni siquiera es tan corto ...)

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⋄,/⊃⌽⍺}⎕

Lee dos líneas del teclado: la primera es el programa y la segunda es la cinta inicial.

El formato es

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

y todos deberían estar en la misma línea. 'Movimiento' es 0 para moverse hacia la derecha y 1 para moverse hacia la izquierda.

Programa de ejemplo (saltos de línea insertados para mayor claridad, deben estar todos en una sola línea).

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

El programa agrega dos números unarios juntos, por ejemplo:

in:  1111 111
out: 1111111

Ejemplo 2 (adaptado del programa de incremento binario de la 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
fuente
¿Como puedo probarlo? Estoy usando Linux y probé con aplus pero no funciona (token indefinido :(). ¿Qué intérprete / compilador debo probar?
Marco Martinelli
Estoy usando Dyalog APL. No tengo conocimiento de usar ninguna función específica de Dyalog, pero A + no es completamente lo mismo. Hay una versión gratuita de Dyalog pero es solo para Windows. (Puede ejecutarse en Wine pero usa su propio método de entrada para que pueda escribir APL.) Si ejecuta Dyalog, simplemente ingrese / pegue el código APL (en una línea), luego el programa de máquina Turing (en una segunda línea ), luego la cinta inicial (en la tercera línea).
Marinus
ok, lo intentaré, gracias
Marco Martinelli
3

Python, 101 189 152 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

byp son las entradas, b es la cinta inicial, p codifica las reglas como (representación de cadena de) una sentencia de tupla (en estado, en cinta) a tupla (fuera de estado, movimiento de cabeza, fuera de cinta) . Si mover es 0, el programa termina, 1 es mover hacia la derecha y -1 es mover hacia la izquierda.

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 prueba prueba si la última letra de la cadena (antes de la cinta vacía) es 'a', si es así, escribe 'Y' al final de la cadena (primer espacio vacío).

Editar 1:

Cambió la cinta para que se representara como un dict, ya que parecía la forma más corta de escribir una estructura de datos extensible. La penúltima línea la está transformando principalmente en una forma legible para la salida.

Edición 2:

Gracias a Strigoides por una gran cantidad de mejoras.

Edición 3:

Lo había hecho innecesariamente para que 0 como salida dejara el lugar como está. Eliminé esto ya que siempre podemos escribir la salida igual que la entrada.

shiona
fuente
No creo que esta sea una solución válida porque en su implementación la cinta es limitada. De esta manera, necesita saber de antemano el consumo de memoria de su programa. Y hay problemas para moverse a la izquierda. Sugerencia: se puede hacer una cinta a partir de dos pilas modificadas en las que siempre puede aparecer un símbolo en blanco.
Marco Martinelli
Ah cierto. Lo siento, no pensé esto demasiado lejos.
shiona
Uhm ... afaik, la cinta es infinita en ambas direcciones y siempre puedes leer un carácter vacío. Especificaré eso en la respuesta.
Marco Martinelli
Tenías razón (habíamos tenido reglas más estrictas en nuestros ejercicios). Arreglé al menos algunos de los defectos.
shiona
Puede eliminar el espacio en la primera línea, r=0;s=0puede volverse r=s=0(y el punto y coma al final de esa línea es innecesario), puede eliminar la función w, ya que no se utiliza, los corchetes se pueden quitar (s,m,t)=r[s,c], el bloque try/ exceptse puede acortar usando dict.get; c=a.get(i,' '), ya que mes 0 o 1, puede usar if m-1:, y puede acortar su map()llamada convirtiéndola en una lista de comprensión.
Strigoides
3

Posdata (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

Probablemente esto sea trampa, pero la tabla de transición contiene código para realizar las transiciones. Y dado que la cinta está representada por una asignación de enteros a enteros, he representado estados como una asignación de nombres a diccionarios para que la cinta y el programa coexistan en el mismo diccionario anónimo.

Ahorros adicionales al hacer que todos los nombres de estado sean ejecutables, por lo que se cargan automáticamente .

Ungolfed con el programa integrado "Hello". 52 caracteres adicionales compran un bucle para leer la cinta de stdin.Corre con 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

Entonces el formato de tabla es

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

donde in-statees un nombre in-tapey out-tapeson caracteres (es decir, enteros o expresiones que producen enteros), movementes -1para izquierda o 1para derecha, y out-statees un nombre ejecutable . La in-tapetransición múltiple para el mismo estado debe combinarse como se indicó anteriormente.

luser droog
fuente
Otro problema es que no hay ninguna disposición para descubrir qué parte de la cinta es interesante. Eso va a costar bastante hacer un currentdict{search-for-min-and-max}forall juggle-params-for-for. :(
luser droog
Probé el mío, pero fue mucho más allá de tu concisión. Pero sugerí algunas mejoras a su código.
Thomas W.
Por cierto, ¿qué pasa con la cinta inicial? Eliminé la línea comentada del código sin golf porque no parecía hacer el trabajo. ("0 no" devuelve -1, por lo tanto, no hay iteración del bucle)
Thomas W.
Excelentes mejoras! ... Sobre el código de cinta inicial, creo que lo escribí mal en mi cuaderno. SB 0 1 0 not{(%stdin)(r)file read not{exit}if def}for. No estoy seguro de por qué pensé que podría escapar omitiendo eso de la versión de golf. : P
luser droog
Oh, espera, -1! Entonces 0 notdebería ser 16#7fffffff. Lo siento. ¡Ajá! por eso fue comentado! Salió directamente del cuaderno, no se hizo la prueba, y recorté todos los comentarios sin mirar cuando lo jugué. ¡No le digas al tipo Python! : P
luser droog
2

C (no golfizado aún)

Supongo que no puedo ganar con esto, aún así fue divertido hacerlo funcionar. Esto es aún más cierto ahora que lo que realmente hace el trabajo. :)

Excepto que solo es infinito en una dirección. Supongo que también necesita una cinta negativa. Suspiro....

Negativo no fue tan malo. Intercalamos los dos lados como pares e impares. La complicación es que ahora necesita mostrar la cinta en orden secuencial , ya que el archivo en sí está ahora mezclado. Esta es una alteración legítima para hacer, creo. Turing mismo simplificó de esta manera.

#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;
}

Y aquí está la prueba de funcionamiento:

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

El programa genera la cinta en orden secuencial, pero el archivo representa los lados negativo y positivo intercalados.

luser droog
fuente
Hay problemas con su implementación. Pruebe este programa que intercambia ayb 0 'a' 0 'b' R; 0 'b' 0 'a' Rcon la entrada aaa, la salida es bab en lugar de bbb. Y hay problemas para moverse a la izquierda.
Marco Martinelli
¡Gracias por la atención! La actualización corrige ambos, creo (espero).
luser droog
uhm .. sigue recibiendo bab
Marco Martinelli
sí, pero esta vez es correcto! 'aaa' corresponde a las posiciones [0, -1,1] en la cinta. Pero el resultado que debería mostrar esto claramente necesita trabajo.
luser droog
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()}

Formateado para facilitar la lectura

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 es la función que configura la cinta e es la función que evalúa el programa

Ejemplo 1 - Imprimir "¡Hola!" en la cinta :)

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)

Ejemplo 2: deje una T en la cinta si la cadena inicial tiene la forma de a n b n ; deténgase de lo contrario.

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)

Ejemplo 3 - Incremento de un número binario

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)

en los ejemplos 1 significa moverse hacia la derecha y -1 significa moverse hacia la izquierda

Marco Martinelli
fuente