RPG attributes generator: Difference between revisions
no edit summary
No edit summary |
|||
Line 1,975:
Their sum is 80 and 2 of them are >= 15
</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>valid = False;
While[! valid,
try = Map[Total[TakeLargest[#, 3]] &,
RandomInteger[{1, 6}, {6, 4}]];
If[Total[try] > 75 && Count[try, _?(GreaterEqualThan[15])] >= 2,
valid = True;
]
]
{Total[try], try}</lang>
{{out}}
<pre>{78, {13, 15, 9, 13, 12, 16}}</pre>
=={{header|min}}==
| |||