Next highest int from digits: Difference between revisions

m
(→‎{{header|Haskell}}: Added a digit-swap variant and ten digit-shuffle successors for the larger test number)
Line 296:
=> b -> [b]
digitShuffleSuccessors n =
let nextDigitPatterngo = minimalSwap . splitBy (>)
in unDigits <$>
unfoldr
Line 302:
if null ds
then Nothing
else Just (ds, (nextDigitPatterngo . reverse) ds))
(nextDigitPatterngo (reversedDigits n))
 
minimalSwap
9,659

edits