ＰＲＧ：ＱＵＥＥＮＳ
セツメイＥＸＰＬＡＮＡＴＩＯＮ
「nクイーン問題」を解くパズル。n個のチェスのクイーンを、お互いに取られないような位置にn×nの盤面に全て配置する。This is a puzzle game to solve "n-queens problem": placing chess queens on the board so that no two queens threaten each other.
クイーンの動きは、上下左右斜めの8方向に遮る物がない限り進める。(将棋の飛車と角行を合わせた動き)Thus, a solution requires that no two queens share the same row, column, or diagonal.
タッチペンでクイーンを模したキャラを移動・配置。十字キーの上下で盤のサイズを変更。Bボタンでリセット。Move and place the character as a queen by touch-pen. You can expand or contract the board by D-pad. You can reset the board by B button.
ＱＲコードＱＲ ＣＯＤＥ
プログラムコードＰＲＯＧＲＡＭ ＣＯＤＥ
表示 Show
| Ｂ | ボタンの状態 |
| Ｃ＄ | キャラクターデータ設定用 |
| Ｄ | 盤面初期化時のクイーンの列数 |
| Ｆ（） | クイーンの状態(0:盤外, 1:正常, 7:取られる位置) |
| Ｉ，Ｊ | 汎用ループカウンタ |
| Ｌ | 現在操作中のスプライト番号 |
| Ｎ | 盤面のサイズ |
| Ｑ | 盤面サイズの変更量 |
| Ｔ | タッチの状態 |
| Ｖ，Ｗ | クイーン同士が取られる位置関係か判定用 |
| Ｘ，Ｙ | 離散値化したタッチの座標 |
| Ｘ（），Ｙ（） | クイーンの座標 |
| Ｚ | 問題が解けたか判定用 |
01. ＣＬＥＡＲ：Ｎ＝８ＤＩＭ Ｘ（１２），Ｙ（１２），Ｆ（１２）ＢＧＭＰＬＡＹ ２７ＰＮＬＴＹＰＥ”ＯＦＦЛ
02. ＠ＩЛ
03. ＡＣＬＳ：ＧＰＡＧＥ １ＳＰＰＡＧＥ １ＦＯＲ Ｉ＝０ＴＯ １２７ＣＨＲＲＥＡＤ（”ＳＰＵ１”，Ｉ＋１２８），Ｃ＄ＣＨＲＳＥＴ”ＳＰＳ”，Ｉ，Ｃ＄ＮＥＸＴЛ
04. Ｄ＝２＋（Ｎ＞４）＋（Ｎ＞９）ＦＯＲ Ｉ＝０ＴＯ Ｎ－１ＦＯＲ Ｊ＝０ＴＯ Ｎ－１ＧＦＩＬＬ Ｊ＊１６，Ｉ＊１６，Ｊ＊１６＋１５，Ｉ＊１６＋１５，９－（Ｉ＋Ｊ）％２＊２ＮＥＸＴЛ
05. ＳＰＳＥＴ Ｉ，０，６，１，０，３Ｘ（Ｉ）＝（Ｎ＋Ｉ／Ｄ＋１ＯＲ ０）＊１６Ｙ（Ｉ）＝Ｉ％Ｄ＊１６ＮＥＸＴ：Ｌ＝－１ＧＯＳＵＢ＠ＪЛ
06. ＠ＬЛ
07. Ｘ＝ＴＣＨＸ ＡＮＤ ２４０Ｙ＝ＴＣＨＹ ＡＮＤ ２４０Ｔ＝ＴＣＨＳＴЛ
08. ＦＯＲ Ｉ＝０ＴＯ（Ｌ＊Ｔ＜０）＊Ｎ－１ＩＦ ＳＰＨＩＴＲＣ（Ｉ，Ｘ，Ｙ，１，１）ＴＨＥＮ ＳＰＣＨＲ Ｉ，２５Ｌ＝ＩЛ
09. ＮＥＸＴ：ＩＦ Ｌ＞＝０ＴＨＥＮ ＳＰＯＦＳ Ｌ，Ｘ，Ｙ：ＯＮ Ｔ ＧＯＳＵＢ＠ＲЛ
10. Ｂ＝ＢＴＲＩＧ（）Ｑ＝（Ｂ＝＝２）＊（Ｎ＜１２）－（Ｂ＝＝１）＊（Ｎ＞４）Ｎ＝Ｎ＋ＱЛ
11. ＶＳＹＮＣ １ＯＮ！Ｑ＊（Ｂ！＝３２）ＧＯＴＯ＠Ｉ，＠ＬЛ
12. ＠ＲЛ
13. ＩＦ！ＳＰＨＩＴ（Ｌ）ＴＨＥＮ Ｘ（Ｌ）＝Ｘ：Ｙ（Ｌ）＝ＹЛ
14. ＠ＪЛ
15. ＦＯＲ Ｉ＝０ＴＯ Ｎ－１Ｆ（Ｉ）＝Ｎ＊１６＞Ｘ（Ｉ）ＡＮＤ Ｎ＊１６＞Ｙ（Ｉ）ＮＥＸＴЛ
16. ＦＯＲ Ｉ＝０ＴＯ Ｎ－２ＦＯＲ Ｊ＝Ｉ＋１ＴＯ Ｎ－１Ｖ＝Ｘ（Ｉ）－Ｘ（Ｊ）Ｗ＝Ｙ（Ｉ）－Ｙ（Ｊ）Л
17. ＩＦ（！Ｖ＋！Ｗ＋！（Ｖ－Ｗ）＋！（Ｖ＋Ｗ））＊Ｆ（Ｉ）＊Ｆ（Ｊ）ＴＨＥＮ Ｆ（Ｉ）＝７Ｆ（Ｊ）＝７Л
18. ＮＥＸＴ：ＮＥＸＴЛ
19. Ｚ＝Ｎ：ＦＯＲ Ｉ＝０ＴＯ Ｎ－１ＳＰＯＦＳ Ｉ，Ｘ（Ｉ），Ｙ（Ｉ）ＳＰＣＨＲ Ｉ，Ｆ（Ｉ）＊４Ｚ＝Ｚ－（Ｆ（Ｉ）＝＝１）ＮＥＸＴЛ
20. ＩＦ Ｌ＞＝０ＴＨＥＮ ＢＥＥＰ ９－（Ｆ（Ｌ）＞１）＊５＋！Ｚ＊２３Л
21. Ｌ＝－１ＲＥＴＵＲＮЛ
※コードのHTML生成にPTC2HTMLを使用しています。
モドル ＢＡＣＫ