プチコンまとめWiki (初代/mkII)

投稿プログラム : ナンプレ解法@1画面

パンくずリスト

2011年04月07日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム 実用ツール QRコード 初代対応 1画面プログラム

概要

ナンプレを解くだけのプログラムです。
表示が変わらないと寂しいので、試行錯誤の過程を表示するようにしてあります。

使い方

プログラム中のDATA文に、解きたいナンプレを入れて実行してください。
1~9の数字はそのまま入力し、スペースは"0"で入力してください。

注意

1画面に収めたかったので、単純な総当りで解いています。
そのため、問題によっては解くのに恐ろしく時間がかかります。

また、エラー処理をしていないので、解けない問題を入れるとエラーで落ちます。

スクリーンショット・動画

ありません。

QR コード

プチコンmkII 向けの QR コードです。

左上から順番に決定する版

ABGNMPL1.png

候補が少ないところから決定する版

ABGNMPL2.png

プログラムリスト

左上から順番に決定する版

  • 2011/05/16 (月) 22:03:39　ラベルの後ろにDATA文が置けることがわかったので、2行ほど短縮
  1. ＣＬＥＡＲ：ＤＩＭ　Ｂ（８１），Ｐ（８１），Ｎ（２４１）
  2. ＣＬＳ：Ｓ＝−１：Ｔ＝−１：ＦＯＲ　Ｐ＝０　ＴＯ　８０
  3. ＩＦ　Ｐ％９＝＝０　ＴＨＥＮ　ＲＥＡＤ　Ｂ＄：？　Ｂ＄
  4. Ｂ（Ｐ）＝ＶＡＬ（ＭＩＤ＄（Ｂ＄，Ｐ％９，１））：ＮＥＸＴ
  5. ＦＯＲ　Ｐ＝０　ＴＯ　８０：ＩＦ　Ｂ（Ｐ）　ＧＯＴＯ　＠Ｎ
  6. ＦＯＲ　Ｉ＝１ＴＯ　９：Ａ（Ｉ）＝１：ＮＥＸＴ：Ｊ＝Ｐ％９
  7. Ｋ＝（Ｐ−Ｐ％３）％９＋Ｐ−Ｐ％２７ＦＯＲ　Ｉ＝０ＴＯ　８
  8. Ａ（Ｂ（Ｐ−Ｊ＋Ｉ））＝０：Ａ（Ｂ（Ｊ＋Ｉ＊９））＝０
  9. Ａ（Ｂ（Ｋ＋Ｉ／３＋Ｉ％３＊９））＝０ＮＥＸＴ：Ｓ＝Ｓ＋１
  10. Ｐ（Ｓ）＝Ｐ：Ｔ＝Ｔ＋１Ｎ（Ｔ）＝０ＦＯＲ　Ｉ＝１ＴＯ　９
  11. ＩＦ　Ａ（Ｉ）　ＴＨＥＮ　Ｔ＝Ｔ＋１：Ｎ（Ｔ）＝Ｉ
  12. ＮＥＸＴ　　　　　　　　　　：ＤＡＴＡ　０００００００００
  13. ＦＯＲ　Ｉ＝０　ＴＯ　１　　：ＤＡＴＡ　０００００００００
  14. Ｐ＝Ｐ（Ｓ）：Ｓ＝Ｓ−１　　：ＤＡＴＡ　０００００００００
  15. Ｉ＝Ｎ（Ｔ）：Ｔ＝Ｔ−１　　：ＤＡＴＡ　０００００００００
  16. ＬＯＣＡＴＥ　Ｐ％９，Ｐ／９：ＤＡＴＡ　０００００００００
  17. ？　Ｉ：Ｂ（Ｐ）＝Ｉ　　　　：ＤＡＴＡ　０００００００００
  18. ＮＥＸＴ：Ｓ＝Ｓ＋１　　　　：ＤＡＴＡ　０００００００００
  19. ＠Ｎ　　　　　　　　　　　　：ＤＡＴＡ　０００００００００
  20. ＮＥＸＴ　　　　　　　　　　：ＤＡＴＡ　０００００００００

候補が少ないところから決定する版

候補が少ないところを優先して決定するようにした版です。
速度が重要であれば、こちらを入力してください。(2011/12/11 (日) 19:20:40)

  • 2012/01/04 (水) 22:35:19　さらにちょっとだけ高速化。ただしVer1.2でないと動作しなくなった。
  • 2012/01/05 (木) 23:48:19　根本的に見なおして更に高速化。
  • 2012/01/06 (金) 21:17:25　さらにもうちょっとだけ高速化。
  • 2012/01/07 (土) 20:15:31　変数名と配列サイズの見直し。
  1. ＣＬＥＡＲ：ＤＩＭ　Ｂ（８１），Ｐ（８１），Ｎ（４５５）
  2. ＣＬＳ：ＤＩＭ　Ａ（８１，１０）：ＦＯＲ　Ｑ＝０ＴＯ　８０
  3. ＩＦ　Ｑ％９＜１ＴＨＥＮ　Ｒ＝１０：ＲＥＡＤ　Ｂ＄：？Ｂ＄
  4. Ｂ（Ｑ）＝ＶＡＬ（ＭＩＤ＄（Ｂ＄，Ｑ％９，１））：ＮＥＸＴ
  5. ＦＯＲ　Ｓ＝０ＴＯ　８０ＦＯＲ　Ｉ＝Ｄ＊８１０ＴＯ　８０９
  6. Ａ（Ｉ／Ｒ，Ｉ％Ｒ）＝１：ＮＥＸＴ：ＦＯＲ　Ｉ＝０ＴＯ　１
  7. Ｎ＝Ｂ（Ｐ）Ｋ＝Ｐ％９Ｌ＝（Ｐ−Ｐ％３）％９＋Ｐ−Ｐ％２７
  8. ＦＯＲ　Ｊ＝（Ｎ＜１）＊９ＴＯ　８Ａ（Ｐ−Ｋ＋Ｊ，Ｎ）＝０
  9. Ａ（Ｋ＋Ｊ＊９，Ｎ）＝０：Ｑ＝Ｌ＋Ｊ／３＋Ｊ％３＊９
  10. Ａ（Ｑ，Ｎ）＝０：ＮＥＸＴ：Ｐ＝Ｐ＋１Ｉ＝Ｄ＋（Ｐ＞８０）
  11. ＮＥＸＴ：Ｄ＝１０ＦＯＲ　Ｑ＝０ＴＯ　８０Ｃ＝Ｒ＊Ｂ（Ｑ）
  12. ＦＯＲ　Ｎ＝Ｃ＋１ＴＯ　９：Ｃ＝Ｃ＋Ａ（Ｑ，Ｎ）：ＮＥＸＴ
  13. ＩＦ　Ｄ＞Ｃ　ＴＨＥＮ　Ｄ＝Ｃ：Ｐ＝Ｑ
  14. ＮＥＸＴ：ＩＦ　Ｄ＞９ＴＨＥＮ　ＥＮＤ
  15. Ｎ（Ｔ）＝０Ｔ＝Ｔ＋１ＦＯＲ　Ｎ＝１ＴＯ　９：Ｎ（Ｔ）＝Ｎ
  16. Ｔ＝Ｔ＋Ａ（Ｐ，Ｎ）ＮＥＸＴ：ＤＡＴＡ　０００００００００
  17. Ｐ（Ｓ）＝Ｐ：Ｓ＝Ｓ＋１　　：ＤＡＴＡ　０００００００００
  18. ＦＯＲ　Ｎ＝０　ＴＯ　１　　：ＤＡＴＡ　０００００００００
  19. Ｓ＝Ｓ−１：Ｐ＝Ｐ（Ｓ）　　：ＤＡＴＡ　０００００００００
  20. Ｔ＝Ｔ−１：Ｎ＝Ｎ（Ｔ）　　：ＤＡＴＡ　０００００００００
  21. ＬＯＣＡＴＥ　Ｐ％９，Ｐ／９：ＤＡＴＡ　０００００００００
  22. ？　Ｎ：Ｂ（Ｐ）＝Ｎ　　　　：ＤＡＴＡ　０００００００００
  23. ＮＥＸＴ：Ｐ＝Ｐ＊（Ｄ＞０）：ＤＡＴＡ　０００００００００
  24. ＬＯＣＡＴＥ　０，９ＮＥＸＴ：ＤＡＴＡ　０００００００００

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • た : 何このDATA文、こんなのアリなんだ (2011/04/14 (木) 00:11:52)
  • 名無しさん : ありかよ・・・ (2011/05/01 (日) 10:00:21)
  • 名無しさん : かっこいいｗｗｗM-FAN時代だったらすげー！！って騒がれてただろうなｗ (2011/05/11 (水) 16:10:35)
  • 名無しさん : ラベルの後ろにDATA文が置けるって、ラベル文の仕様とあからさまに矛盾してるなｗ　完全にバグだコレ (2011/05/17 (火) 00:05:00)
  • 名無しさん : いったん全て0でするとすぐ終わるが朝●新聞の●eとかについているナンプレを解くために何分かかるんだ、みたいな。解いてる途中に朝飯食えたわ。 (2011/11/21 (月) 17:24:26)
  • 名無しさん : 何言ってんだよ上の奴 まあそれはいいとして、何かおかしいですが、私は高評価つけます。 (2012/01/21 (土) 19:52:57)
  • 名無しさん : ロジックのも作れたら載せて (2012/03/03 (土) 18:27:32)
  • 名無しさん : おっ、ロジックおもろそう (2012/03/16 (金) 18:32:31)
  • 名無しさん : 早速朝日新○の数独やったけど超高速だった (2012/03/25 (日) 09:59:31)
  • とも : すごいｗｗｗｗｗｗ (2012/04/21 (土) 14:57:29)
  • 名無しさま : １６×１６や１２×１２のナンプレ用プログラムは無理ですか？？？？？？ (2012/08/15 (水) 21:40:03)
  • 名無しさん : 総当たりにしても効率強化にしてもDSのスペックで追いつくあたり流石と思った　　　今更 (2013/07/02 (火) 23:32:27)
  • ねじ : ラベルの後ろにDATA分置けるの、自分のでも使ってみます。 (2013/11/07 (木) 23:00:36)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.108 秒 | このページの最終更新 : 2022/09/20 (火) 12:43:54 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30