Mayor equidigital

7 Comentarios

1. Haskell

   import Data.List mayorEquidigital :: Integer -> Integer mayorEquidigital = read . reverse . sort . show

   1 2 3 4

   import Data.List   mayorEquidigital :: Integer -> Integer mayorEquidigital = read . reverse . sort . show

   Responder

2. En Python

   Python

   def mayorEquidigital(n): return int("".join(sorted(str(n)))[::-1]) # Ejemplo: # mayorEquidigital(325271) == 753221

   1 2 3 4 5

   def mayorEquidigital(n):     return int("".join(sorted(str(n)))[::-1])   # Ejemplo: #    mayorEquidigital(325271)  ==  753221

   Responder

3. En Julia

   function mayorEquidigital(n) parse(Int,join(reverse(sort(digits(n))))) end # Ejemplo: # mayorEquidigital(325271) == 753221

   1 2 3 4 5 6

   function mayorEquidigital(n)   parse(Int,join(reverse(sort(digits(n))))) end   # Ejemplo: #    mayorEquidigital(325271)  ==  753221

   Responder

4. En JavaScript

   JavaScript

   function mayorEquidigital(n){ return Number(String(n).split("").sort().reverse().join("")); } // Ejemplo: // > mayorEquidigital(325271) // 753221

   1 2 3 4 5 6 7

   function mayorEquidigital(n){   return Number(String(n).split("").sort().reverse().join("")); }   // Ejemplo: //    > mayorEquidigital(325271) //    753221

   Responder

5. En Maxima

   load(stringproc)$ mayorEquidigital(n) := sreverse(ssort(string(n)))$ /* Ejemplo: (%i3) mayorEquidigital(325271); (%o3) 753221 */

   1 2 3 4 5 6 7 8

   load(stringproc)$   mayorEquidigital(n) := sreverse(ssort(string(n)))$   /* Ejemplo:       (%i3) mayorEquidigital(325271);       (%o3) 753221 */

   Responder

6. En Mathematica:

   MayorEquidigital[n_] := FromDigits[Reverse[Sort[IntegerDigits[n]]]] *Ejemplo: MayorEquidigital[325271] 753221 *

   1 2 3 4 5

   MayorEquidigital[n_] := FromDigits[Reverse[Sort[IntegerDigits[n]]]]   *Ejemplo:   MayorEquidigital[325271]   753221 *

   Responder

7. Haskell

   import Data.List mayorEquidigital :: Integer -> Integer mayorEquidigital = read . reverse . sort . show

   1 2 3 4

   import Data.List   mayorEquidigital :: Integer -> Integer mayorEquidigital = read . reverse . sort . show

   Responder