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