A Stack 的修订

1 file changed, 58 insertions

stack(文件已创建)

		@@ -0,0 +1,58 @@
1	+	Spawn the stack and the reading head.
2	+	start -> ()\|
3	+
4	+	Handle a push.
5	+	Continually push symbols until you run into another instruction.
6	+	If you can't push any more symbols, and a push is pending, push a separator.
7	+	)\|push1 -> 1)\|push
8	+	)\|push; -> ;)\|
9	+
10	+	Handle a drop.
11	+	Continue erasing symbols until you encounter a separator.
12	+	;)\|drop; -> \|drop;)
13	+	1\|drop -> \|drop
14	+	;\|drop;) -> ;)\|
15	+	Handle the last element being dropped.
16	+	(\|drop;) -> ()\|
17	+	Handle an empty drop.
18	+	()\|drop; -> ()\|
19	+
20	+	Handle an addition.
21	+	Seek to the separator that divides two runs of symbols.
22	+	;)\|add; -> \|+;)
23	+	1\|+ -> \|+1
24	+	When you reach it, eliminate it, then reset.
25	+	;\|+ -> \|>
26	+	If there's only one number on the stack, reset.
27	+	(\|+ -> (\|>
28	+
29	+	Handle a subtraction.
30	+	Seek to the separator that divides two runs of symbols.
31	+	;)\|sub; -> \|-;)
32	+	1\|- -> \|-1
33	+	When you encounter it, stop and consume one symbol from both sides of the separator.
34	+	1;\|-1 -> ;\|-
35	+	If you run out of symbols on the left side of the separator, reset.
36	+	(;\|- -> (\|>
37	+	;;\|- ->\|>
38	+	If you run out of symbols on the right side of the separator, reset.
39	+	;\|-;) -> ;)\|
40	+	If there's only one number on the stack, reset.
41	+	(\|- -> (\|>
42	+
43	+	Handle a reset.
44	+	Seek back to the instruction stream.
45	+	\|>1 -> 1\|>
46	+	\|>; -> ;\|>
47	+	\|>) -> )\|
48	+
49	+	::=::
50	+
51	+	start
52	+	push 11;
53	+	push 111;
54	+	add;
55	+	push 1;
56	+	sub;
57	+	push;
58	+	add;