読者です 読者をやめる 読者になる 読者になる

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

目次へ

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

数 独 20150606

Step by step の解答

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

この表の1番目の手順が意味することは、Naked Single(裸のシングル)を探した結果、2行4列に9を、4行2列に2を、5行7列に1を、6行2列に8を、6行5列に7を入れる。以下同様にして 12回の手順を経て完成に至ります。

解答のアニメーション

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

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

CloudDeploy を使って

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

一部表示の不具合があるが、完成が近い。

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: 表示が正常になった。

目次へ