22 lines
811 B
Plaintext
22 lines
811 B
Plaintext
NB. Sorting stress test...
|
|
NB. 0 1 2 3 Tape Symbol Scan
|
|
NB. S p m g p m g p m g p m g (p,m,g) ➜ (print,move,goto)
|
|
QS=. (Noun _) ; 0 NB. Reading the transition table and setting the initial state
|
|
0 0 _1 4 1 1 0 3 1 1 _ _ _
|
|
1 0 _1 2 1 1 1 2 1 1 _ _ _
|
|
2 _ _ _ 2 _1 3 2 _1 2 2 _1 4
|
|
3 _ _ _ 1 _1 3 2 _1 3 1 1 0
|
|
4 0 1 _1 1 _1 4 _ _ _ _ _ _
|
|
)
|
|
TPF=. 1 2 2 1 2 2 1 2 1 2 1 2 1 2 ; 0 ; 50 NB. Setting the tape, its pointer and the display frequency
|
|
|
|
TPF utm QS NB. Running the Turing machine...
|
|
0 1:12212212121212
|
|
0 :^
|
|
3 2:113122121222220
|
|
50 : ^
|
|
1 2:111111322222220
|
|
100: ^
|
|
4 0:0111111222222220
|
|
118: ^
|