数独(Sudoku) を Mathematicaで解く: 数独-20150627-日経

目次へ

2015年6月27日(土) 付け日経新聞ナンバープレースの問題を Mathematica で解いた。

数 独 20150627

Step by step の解答

このパズルの特徴は Naked Singles(裸のシングル) と HiddenSingles(隠れたシングル) で答えが求まることです。

この表の1番目の手順が意味することは、行(Row) について HiddenSingle(隠れたシングル)を探した結果、3行2列に7を、8行8列に6を、9行2列に8を入れる。以下同様にして 20回の手順を経て完成に至ります。中級の問題と思われます。

解答のアニメーション

プラスをクリックして数字を増やすと各ステップの答えがわかります。答えになる理由を調べたいとき why をクリックすると分かります。

「Get the Wolfram CDF Player 」が表示される場合は、 CDF プラグインがサポートされていないことを意味します。興味のある人は Wolfram CDF をブログに載せる を見てください。

CloudCDF を使っての表示

"Get the Wolfram CDF Player" が表示された場合、次をクリックするとアニメーションを見ることができます。ほぼ正常に動くようになった。

CloudDeploy を使って

次をクリックしてポップアップメニュー( ii )をクリックし数を増やすとステップごとの答えが分かります。ほぼ正常に動くようになった。

Wolfram Cloud の状況

  • 1月17日2015: このころから Wolfram Cloud の表示が変化した。 Popup menu は働いているが表示される数字が変化しない。
  • 2月8日2015: found が $CellContext`found に、why が $CellContext`why に表示される。メモしながら数字を選択すれば Sudoku は正しく描かれる。
  • 4月4日2015: Mathematica 10.1.0 にバージョンアップした。表示は改善したが残念ながらクリックしても変化しない。
  • 6月27日2015: ほぼ正常に動くようになった。操作メニューの表示が一部不具合がある。完成が近いので期待したい。
  • Jul 25, 2015: 表示が正常になった。

目次へ