1 2 1 1 2 1 3 1 2 1 1 2 3 1 2 1 4 1 2 3 1 2 1
0 1 2 H 3 NB. 0 1 2 は 3本のペグの位置 0 1 2 H 4 +---+---+ |0 1|0 2| |0 2|0 1| |1 2|2 1| |0 1|0 2| |2 0|1 0| |2 1|1 2| |0 1|0 2| | |0 1| | |2 1| | |2 0| | |1 0| | |2 1| | |0 2| | |0 1| | |2 1| +---+---+
H=: 4 : 0 if. 1>:y do. (y,2)$x else. ((0 2 1{x) H y-1), (2{.x), ((2 1 0{x) H y-1) end. )