Twelve statements: Difference between revisions
m
→{{header|Mathematica}}
(Twelve statements en FreeBASIC) |
|||
Line 2,490:
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang mathematica>Print["Answer:\n", Column@Cases[#, {s_, 0} :> s], "\nNear misses:\n",
Column@Cases[#, {s_, 1} :> s]] &[{#,
Line 2,501:
Total@#[[7 ;; 9]] == 1, Total@#[[;; 11]] == 4} - #,
Except[0]]} & /@ Tuples[{1, 0}, 12]]</lang>
{{Out}}
<pre>Answer:
{1,0,1,1,0,1,1,0,0,0,1,0}
Near misses:
| |||