RosettaCodeData/Task/RPG-attributes-generator/Mathematica/rpg-attributes-generator.math
2023-07-01 13:44:08 -04:00

9 lines
211 B
Text

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}