*チューリングマシンエミュレータ [#l5632c95]
ロジャー・ペンローズの「皇帝の新しい心」のチューリングマシンを実装。
#areaedit
1を加える。3+1
 #turing(prog)
 Start→10
 10[0]→[0] R 10
 10[1]→[1] R 20
 20[0]→[1] Stop
 20[1]→[1] R 20
 #turing(30)
 ooo111oooooo ←初期値

#turing(prog)
 Start→10
 10[0]→[0] R 10
 10[1]→[1] R 20
 20[0]→[1] Stop
 20[1]→[1] R 20
#turing(20)
 ooo111oooooo
#areaedit(end)

#areaedit
* 互除法 [#kce00b40]
最大公約数を求める。6と9で3

#turing(prog)
 Start→100
 100[0]→[0] R 100
 100[1]→[1] L 101
 101[0]→[1] R 102
 101[1]→[1] L 101
 102[0]→[0] R 110
 102[1]→[0] R 103
 103[0]→[0] R 104
 103[1]→[1] R 103
 104[0]→[0] R 104
 104[1]→[0] R 105
 105[0]→[0] L 107
 105[1]→[1] L 106
 106[0]→[0] L 106
 106[1]→[1] L 101
 107[0]→[0] L 107
 107[1]→[1] L 108
 108[0]→[0] L 109
 108[1]→[1] L 108
 109[0]→[0] R 102
 109[1]→[1] L 101
 110[0]→[0] Stop
 110[1]→[1] R 110
#turing(1000)
 ooooooo111111ooooo111111111oooooo
#areaedit(end)

トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS