Next highest int from digits: Difference between revisions
→{{header|Nim}}
m (→Haskell :: Minimal digit-swaps: Tidied, pruned out one import.) |
|||
Line 1,534:
Permutations unique: OK = true
Permutation count: Actual = 10, Expected = 10, OK = true</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>ClearAll[NextHighestIntFromDigits]
NextHighestIntFromDigits[n_Integer?NonNegative]:=Module[{digs},
digs=IntegerDigits[n];
digs=FromDigits/@Permutations[digs];
digs=Select[digs,GreaterEqualThan[n]];
If[Length[digs]==1,First[digs],RankedMin[digs,2]]
]
NextHighestIntFromDigits/@{0,9,12,21,12453,738440,45072010,95322020}</lang>
{{out}}
<pre>{0, 9, 21, 21, 12534, 740348, 45072100, 95322200}</pre>
=={{header|Nim}}==
| |||