Next highest int from digits: Difference between revisions

Content added Content deleted

Inline

@@ Line 763: / Line 763: @@
   readln; {$ENDIF}
 end.</syntaxhighlight>
+=={{header|EasyLang}}==
+{{trans|C}}
+<syntaxhighlight>
+proc reverse i j . dig[] .
+   while i < j
+      swap dig[i] dig[j]
+      i += 1
+      j -= 1
+   .
+.
+proc next_perm . dig[] .
+   if len dig[] >= 2
+      for i = 2 to len dig[]
+         if dig[i] < dig[i - 1]
+            k = 1
+            while dig[i] >= dig[k]
+               k += 1
+            .
+            swap dig[i] dig[k]
+            reverse 1 i - 1 dig[]
+            return
+         .
+      .
+   .
+   dig[] = [ ]
+.
+func next_highest n .
+   while n > 0
+      digs[] &= n mod 10
+      n = n div 10
+   .
+   next_perm digs[]
+   for i = len digs[] downto 1
+      r = r * 10 + digs[i]
+   .
+   return r
+.
+nums[] = [ 0 9 12 21 12453 738440 45072010 95322020 ]
+for n in nums[]
+   print n & " -> " & next_highest n
+.
+</syntaxhighlight>
 =={{header|Factor}}==