モートンコードを求める関数を追加。