|
|
| Línea 1: |
Línea 1: |
| <source lang='haskell'>
| |
| -- I1M 2020-21: Rel_8.hs (04 de diciembre de 2020)
| |
| -- El algoritmo de Luhn
| |
| -- Departamento de Ciencias de la Computación e I.A.
| |
| -- Universidad de Sevilla
| |
| -- =====================================================================
| |
|
| |
|
| -- ---------------------------------------------------------------------
| |
| -- § Introducción --
| |
| -- ---------------------------------------------------------------------
| |
|
| |
| -- El objetivo de esta relación es estudiar un algoritmo para validar
| |
| -- algunos identificadores numéricos como los números de algunas tarjetas
| |
| -- de crédito; por ejemplo, las de tipo Visa o Master Card.
| |
| --
| |
| -- El algoritmo que vamos a estudiar es el algoritmo de Luhn consistente
| |
| -- en aplicar los siguientes pasos a los dígitos del número de la
| |
| -- tarjeta.
| |
| -- 1. Se invierten los dígitos del número; por ejemplo, [9,4,5,5] se
| |
| -- transdforma en [5,5,4,9].
| |
| -- 2. Se duplican los dígitos que se encuentra en posiciones impares
| |
| -- (empezando a contar en 0); por ejemplo, [5,5,4,9] se transforma
| |
| -- en [5,10,4,18].
| |
| -- 3. Se suman los dígitos de cada número; por ejemplo, [5,10,4,18]
| |
| -- se transforma en 5 + (1 + 0) + 4 + (1 + 8) = 19.
| |
| -- 4. Si el último dígito de la suma es 0, el número es válido; y no
| |
| -- lo es, en caso contrario.
| |
| --
| |
| -- A los números válidos, los llamaremos números de Luhn.
| |
|
| |
| -- ---------------------------------------------------------------------
| |
| -- Ejercicio 1. Definir la función
| |
| -- digitosInv :: Integer -> [Integer]
| |
| -- tal que (digitosInv n) es la lista de los dígitos del número n. en
| |
| -- orden inverso. Por ejemplo,
| |
| -- digitosInv 320274 == [4,7,2,0,2,3]
| |
| -- ---------------------------------------------------------------------
| |
|
| |
| digitosInv :: Integer -> [Integer]
| |
| digitosInv n = undefined
| |
|
| |
| -- ---------------------------------------------------------------------
| |
| -- Ejercicio 2. Definir la función
| |
| -- doblePosImpar :: [Integer] -> [Integer]
| |
| -- tal que (doblePosImpar ns) es la lista obtenida doblando los
| |
| -- elementos en las posiciones impares (empezando a contar en cero y
| |
| -- dejando igual a los que están en posiciones pares. Por ejemplo,
| |
| -- doblePosImpar [4,9,5,5] == [4,18,5,10]
| |
| -- doblePosImpar [4,9,5,5,7] == [4,18,5,10,7]
| |
| -- ---------------------------------------------------------------------
| |
|
| |
| doblePosImpar :: [Integer] -> [Integer]
| |
| doblePosImpar = undefined
| |
|
| |
| -- ---------------------------------------------------------------------
| |
| -- Ejercicio 3. Definir la función
| |
| -- sumaDigitos :: [Integer] -> Integer
| |
| -- tal que (sumaDigitos ns) es la suma de los dígitos de ns. Por
| |
| -- ejemplo,
| |
| -- sumaDigitos [10,5,18,4] = 1 + 0 + 5 + 1 + 8 + 4 =
| |
| -- = 19
| |
| -- ---------------------------------------------------------------------
| |
|
| |
| sumaDigitos :: [Integer] -> Integer
| |
| sumaDigitos ns = undefined
| |
|
| |
| -- ---------------------------------------------------------------------
| |
| -- Ejercicio 4. Definir la función
| |
| -- ultimoDigito :: Integer -> Integer
| |
| -- tal que (ultimoDigito n) es el último dígito de n. Por ejemplo,
| |
| -- ultimoDigito 123 == 3
| |
| -- ultimoDigito 0 == 0
| |
| -- ---------------------------------------------------------------------
| |
|
| |
| ultimoDigito :: Integer -> Integer
| |
| ultimoDigito n = undefined
| |
|
| |
| -- ---------------------------------------------------------------------
| |
| -- Ejercicio 5. Definir la función
| |
| -- luhn :: Integer -> Bool
| |
| -- tal que (luhn n) se verifica si n es un número de Luhn. Por ejemplo,
| |
| -- luhn 5594589764218858 == True
| |
| -- luhn 1234567898765432 == False
| |
| -- ---------------------------------------------------------------------
| |
|
| |
| luhn :: Integer -> Bool
| |
| luhn n = undefined
| |
|
| |
| </source>
| |
![Informática de 1º de Matemáticas [Curso 2021-22, Grupo 3]](/WIKIS/I1M2021G3/resources/assets/logoUS.png)