You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
63 lines
1.5 KiB
Racket
63 lines
1.5 KiB
Racket
#lang reader "main.rkt" ★ ; 5744
|
|
Begin in state A.
|
|
Perform a diagnostic checksum after 12261543 steps.
|
|
|
|
In state A:
|
|
If the current value is 0:
|
|
- Write the value 1.
|
|
- Move one slot to the right.
|
|
- Continue with state B.
|
|
If the current value is 1:
|
|
- Write the value 0.
|
|
- Move one slot to the left.
|
|
- Continue with state C.
|
|
|
|
In state B:
|
|
If the current value is 0:
|
|
- Write the value 1.
|
|
- Move one slot to the left.
|
|
- Continue with state A.
|
|
If the current value is 1:
|
|
- Write the value 1.
|
|
- Move one slot to the right.
|
|
- Continue with state C.
|
|
|
|
In state C:
|
|
If the current value is 0:
|
|
- Write the value 1.
|
|
- Move one slot to the right.
|
|
- Continue with state A.
|
|
If the current value is 1:
|
|
- Write the value 0.
|
|
- Move one slot to the left.
|
|
- Continue with state D.
|
|
|
|
In state D:
|
|
If the current value is 0:
|
|
- Write the value 1.
|
|
- Move one slot to the left.
|
|
- Continue with state E.
|
|
If the current value is 1:
|
|
- Write the value 1.
|
|
- Move one slot to the left.
|
|
- Continue with state C.
|
|
|
|
In state E:
|
|
If the current value is 0:
|
|
- Write the value 1.
|
|
- Move one slot to the right.
|
|
- Continue with state F.
|
|
If the current value is 1:
|
|
- Write the value 1.
|
|
- Move one slot to the right.
|
|
- Continue with state A.
|
|
|
|
In state F:
|
|
If the current value is 0:
|
|
- Write the value 1.
|
|
- Move one slot to the right.
|
|
- Continue with state A.
|
|
If the current value is 1:
|
|
- Write the value 1.
|
|
- Move one slot to the right.
|
|
- Continue with state E. |