Flipping bits game: Difference between revisions
m
→{{header|Mathematica}}/{{header|Wolfram Language}}
Line 3,488:
];
i = 0;
history = {state};
Grid[goalstate, ItemSize -> {5, 3}, Frame -> True]
b1 = Button["", state = PermuteState[state, {"C", #}]
AppendTo[history, state]; i++;
If[state === goalstate, MessageDialog["You Won!"]]] & /@ Range[n];▼
b2 = Button["", state = PermuteState[state, {"R", #}];
AppendTo[history, state]; i++;
Print[Grid[#, Frame -> True]] & /@ history]] & /@ Range[n];
Dynamic[Grid[
Prepend[MapThread[Prepend, {state, b2}],
Prepend[b1, Row[{"Flips: ", i}]]], Frame -> True
]]</lang>
{{out}}
<pre>0 1 0
1 0 0
1 0 1
0 0 0
1 1 0
1 1 1
1 0 0
0 1 0
0 1 1
1 0 0
1 0 1
0 1 1
0 1 1
1 0 1
0 1 1</pre>
=={{header|MATLAB}}==
| |||