RosettaCodeData/Task/Sum-to-100/Mathematica/sum-to-100-1.math
2023-07-01 13:44:08 -04:00

2 lines
151 B
Text

operations = DeleteCases[Tuples[{"+", "-", ""}, 9], {x_, y__} /; x == "+"];
sums = Map[StringJoin[Riffle[#, CharacterRange["1", "9"]]] &, operations];