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

2015年2月14日(土) 付け日経新聞ナンバープレースの問題を Mathematica で解いた。結果を次に載せます。

数 独   20150214

Step by step の解答

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

解答のアニメーション

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

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

CloudCDF

次をクリックしてポップアップメニュー( ii )をクリックし数を増やすとステップごとの答えが分かります。次の手順で実行すると正しく動きます。

  1. $CellContext`why (右)を選択する。
  2. ポップアップメニュー( ii )をタップして数字を選ぶ。
  3. 2. を繰り返す。
  4. その後に $CellContext`found ()を選択すれば、ポップアップメニュー( ii )をタップして数字を選び繰り返すことができる。

sudoku-20150214-why ( Wolfram Cloud )

注意:  最初に$CellContext`found (左)を選択した状態でポップアップメニュー( ii )をタップして数字を選ぶとエラーになる。理由はわからない。

Wolfram Cloud の状況

  • 1月17日ころから Wolfram Cloud の表示が変化した。
  • Popup menu は働いているが表示される数字が変化しない。 
  • 8 Feb 2015:  found が $CellContext`found に、why が $CellContext`why に表示されている。
  • 25 Jul 2015:  正常に表示されるようになった。

目次へ