RosettaCodeData/Task/Department-numbers/Mathematica/department-numbers.math
2023-07-01 13:44:08 -04:00

1 line
73 B
Text

Select[Permutations[Range[7], {3}], Total[#] == 12 && EvenQ[First[#]] &]