De hexadecimal a decimal

PorJosé A. Alonso 1-enero-201819-febrero-2018

El sistema hexadecimal es el sistema de numeración posicional que tiene como base el 16.

En principio, dado que el sistema usual de numeración es de base decimal y, por ello, sólo se dispone de diez dígitos, se adoptó la convención de usar las seis primeras letras del alfabeto latino para suplir los dígitos que nos faltan. El conjunto de símbolos es el siguiente: {0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F}. En ocasiones se emplean letras minúsculas en lugar de mayúsculas. Se debe notar que A = 10, B = 11, C = 12, D = 13, E = 14 y F = 15.

Como en cualquier sistema de numeración posicional, el valor numérico de cada dígito es alterado dependiendo de su posición en la cadena de dígitos, quedando multiplicado por una cierta potencia de la base del sistema, que en este caso es 16. Por ejemplo, el valor decimal del número hexadecimal 3E0A es

     3×16^3 + E×16^2 + 0×16^1 + A×16^0
   = 3×4096 + 14×256 + 0×16   + 10×1
   = 15882

3×16^3 + E×16^2 + 0×16^1 + A×16^0

= 3×4096 + 14×256 + 0×16 + 10×1

= 15882

Definir la función

   hexAdec :: String -> Int

1	hexAdec :: String -> Int

tal que (hexAdec cs) es el valor decimal del número hexadecimal representado meiante la cadena cs. Por ejemplo,

   hexAdec "3E0A"   == 15882
   hexAdec "ABCDEF" == 11259375
   hexAdec "FEDCBA" == 16702650

hexAdec "3E0A" == 15882

hexAdec "ABCDEF" == 11259375

hexAdec "FEDCBA" == 16702650

Soluciones

import Data.Char (digitToInt)
import Numeric(readHex)
import Data.List (foldl')

-- 1ª solución
hexAdec1 :: String -> Int
hexAdec1 s =
  sum (zipWith (*) (map digitToInt (reverse s)) (iterate (*16) 1))

-- 2ª solución
hexAdec2 :: String -> Int
hexAdec2 = foldl' (\acc x -> acc * 16 + digitToInt x) 0

-- 3ª solución
hexAdec3 :: String -> Int
hexAdec3 = read . ("0x" ++)

-- 4ª solución
hexAdec4 :: String -> Int
hexAdec4 = fst . head . readHex

import Data.Char (digitToInt)

import Numeric(readHex)

import Data.List (foldl')

-- 1ª solución

hexAdec1 :: String -> Int

hexAdec1 s =

sum (zipWith (*) (map digitToInt (reverse s)) (iterate (*16) 1))

-- 2ª solución

hexAdec2 :: String -> Int

hexAdec2 = foldl' (\acc x -> acc * 16 + digitToInt x) 0

-- 3ª solución

hexAdec3 :: String -> Int

hexAdec3 = read . ("0x" ++)

-- 4ª solución

hexAdec4 :: String -> Int

hexAdec4 = fst . head . readHex

5 Comentarios

import Data.Char
esCaracter :: Char -> Bool
esCaracter x = x`elem` ['A','B','C','D','E','F']
valor :: Char -> Int
valor x |isDigit x = digitToInt x
        |esCaracter x = head [y | (a,y) <- zip ['A','B','C','D','E','F'] [10..15], x==a]
        | otherwise = error "no es un caracter hexadecimal" 

hexAdec :: String -> Int
hexAdec [] = 0
hexAdec (x:xs) = valor x * 16 ^ length xs + hexAdec xs

import Data.Char

esCaracter :: Char -> Bool

esCaracter x = x`elem` ['A','B','C','D','E','F']

valor :: Char -> Int

valor x |isDigit x = digitToInt x

|esCaracter x = head [y | (a,y) <- zip ['A','B','C','D','E','F'] [10..15], x==a]

| otherwise = error "no es un caracter hexadecimal"

hexAdec :: String -> Int

hexAdec [] = 0

hexAdec (x:xs) = valor x * 16 ^ length xs + hexAdec xs

Responder

agumaragu1 dice:

1-enero-2018 a las 13:44

Haskell

import Data.Char (digitToInt) import Data.List (foldl') hexAdec2 :: String -> Int hexAdec2 = foldl' aux 0 where aux x y = 16 * x + digitToInt y

1
2
3
4
5
6

import Data.Char (digitToInt)
import Data.List (foldl')

hexAdec2 :: String -> Int
hexAdec2 = foldl' aux 0
where aux x y = 16 * x + digitToInt y

Responder
angruicam1 dice:

1-enero-2018 a las 14:34

Haskell

import Numeric (readHex) hexAdec :: String -> Int hexAdec = fst . head . readHex

1
2
3
4

import Numeric (readHex)

hexAdec :: String -> Int
hexAdec = fst . head . readHex

Responder

import           Data.List  (elemIndex)
import           Data.Maybe (fromJust)

carAdec :: Char -> Int
carAdec = fromJust . flip elemIndex "0123456789ABCDEF"

hexAdec :: String -> Int
hexAdec = foldl (\acc c -> acc * 16 + carAdec c) 0

import Data.List (elemIndex)

import Data.Maybe (fromJust)

carAdec :: Char -> Int

carAdec = fromJust . flip elemIndex "0123456789ABCDEF"

hexAdec :: String -> Int

hexAdec = foldl (\acc c -> acc * 16 + carAdec c) 0

Responder

hexChar :: Char -> Integer
hexChar c
      | c == '0' = 0
      | c == '1' = 1
      | c == '2' = 2
      | c == '3' = 3
      | c == '4' = 4
      | c == '5' = 5
      | c == '6' = 6
      | c == '7' = 7
      | c == '8' = 8
      | c == '9' = 9
      | c == 'A' = 10
      | c == 'B' = 11
      | c == 'C' = 12
      | c == 'D' = 13
      | c == 'E' = 14
      | c == 'F' = 15
      | otherwise     = 0



hexAdec :: String -> Integer
hexAdec cs = convertir (reverse cs )
      where  convertir []     = 0
             convertir (x:xs) = hexChar x + 16 * convertir xs

hexChar :: Char -> Integer

hexChar c

| c == '0' = 0

| c == '1' = 1

| c == '2' = 2

| c == '3' = 3

| c == '4' = 4

| c == '5' = 5

| c == '6' = 6

| c == '7' = 7

| c == '8' = 8

| c == '9' = 9

| c == 'A' = 10

| c == 'B' = 11

| c == 'C' = 12

| c == 'D' = 13

| c == 'E' = 14

| c == 'F' = 15

| otherwise = 0

hexAdec :: String -> Integer

hexAdec cs = convertir (reverse cs )

where convertir [] = 0

convertir (x:xs) = hexChar x + 16 * convertir xs

Responder

De hexadecimal a decimal

Soluciones

5 Comentarios

Escribe tu soluciónCancel reply

Entradas recientes

Buscar

Correo electrónico

Soluciones

Se puede imprimir o compartir con

5 Comentarios

Escribe tu soluciónCancel reply

Entradas recientes

Buscar

Correo electrónico