25 lines
482 B
APL
25 lines
482 B
APL
|
∆I ←'QA.1' '1' 'R' 'QA'
|
|||
|
|
∆I,←'QA.B' '1' 'N' 'QB'
|
|||
|
|
∆INCREMENTER←∆I
|
|||
|
|
|
|||
|
|
∆B ←'QA.0' '1' 'R' 'QB'
|
|||
|
|
∆B,←'QA.1' '1' 'L' 'QC'
|
|||
|
|
∆B,←'QB.0' '1' 'L' 'QA'
|
|||
|
|
∆B,←'QB.1' '1' 'R' 'QB'
|
|||
|
|
∆B,←'QC.0' '1' 'L' 'QB'
|
|||
|
|
∆B,←'QC.1' '1' 'N' 'QD'
|
|||
|
|
∆BEAVER←∆B
|
|||
|
|
|
|||
|
|
∇ R←RUN(F Q H T B);I;J
|
|||
|
|
I←1 ⋄ T←,T
|
|||
|
|
L:→(Q≡H)/E
|
|||
|
|
J←⍸(Q,'.',T[I])∘≡¨F
|
|||
|
|
T[I]←F[J+1]
|
|||
|
|
I←I+2-'RNL'⍳F[J+2]
|
|||
|
|
Q←⊃F[J+3]
|
|||
|
|
T←((I<1)⍴B),T,(I>⍴T)⍴B
|
|||
|
|
I←I+I=0
|
|||
|
|
→L
|
|||
|
|
E:R←T I
|
|||
|
|
∇
|