Lo que tendría que hacer es crear dos listas a partir de dos listas dadas, igualándolas en cantidad de dígitos añadiendo ceros a la izquierda en la primera o segunda lista según sea necesario.
Primero defino el tipo de dato ListInt, que se refiere a una lista de enteros de la siguiente forma
type ListInt = [Int]
El siguiente paso es definir la función clonar
clonar :: Int -> a -> [a]
clonar n x = map (const n) [1..x] -- esto está andando bien
Ahora la función que está andando mal
padZero :: Int -> Int -> Int -> (ListInt, ListInt)
padZero l1 l2 | length l1 < length l2 = ([clonar length l2 - length l1, l1 0], l2)
| length l2 < length l1 = (l1, [clonar length l1 - length l2, l2] 0)
| otherwise = (l1,l2)
Si hago esta prueba tira error
main = print(padZero [9,9] [1,0,0,2])
Ejemplos de uso:
padZero [9, 9] [1, 0, 0, 2]
Resultado:
([0, 0, 9, 9], [1, 0, 0, 2])
Otro ejemplo:
padZero [1, 0, 0, 2] [9, 9]
Resultado:
([1, 0, 0, 2], [0, 0, 9, 9])
padZero
recibe tres argumentosInt
, pero la estás llamando con sólo dos y además listas de enteros en lugar deInt
. Por otro lado, estás invocando a la función clone con 4 argumentos. Supongo quieres poner algo así:clone 0 (length l2 - length l1) l1
. Para aclarar lo que quieres, ¿puedes poner algún ejemplo con el resultado final?