Listas equidigitales

3 Comentarios

1. Haskell

   equidigital :: [Int] -> Bool equidigital xs = and [x == y | (x,y) <- zip n (tail n)] where n = digitos xs digitos [] = [] digitos (x:xs) = length (show x): digitos xs

   1 2 3 4 5 6

   equidigital :: [Int] -> Bool equidigital xs = and [x == y | (x,y) <- zip n (tail n)]     where n = digitos xs   digitos [] = [] digitos (x:xs) = length (show x): digitos xs

   Responder

2. Haskell

   equidigital :: [Int] -> Bool equidigital xs = and [length (digitos x) == length (digitos y) | x <- xs, y <- reverse xs] digitos n = if n < 10 then [n] else [rem n 10] ++ digitos (div n 10)

   1 2 3 4 5 6

   equidigital :: [Int] -> Bool equidigital xs =     and [length (digitos x) == length (digitos y) | x <- xs, y <- reverse xs]   digitos n = if n < 10 then [n]             else [rem n 10] ++ digitos (div n 10)

   Responder

3. Haskell

   equidigital :: [Int] -> Bool equidigital [] = False equidigital (x:xs) = and [digitos x == digitos y| y <- xs] digitos x = length (show x)

   1 2 3 4 5

   equidigital :: [Int] -> Bool equidigital []     = False equidigital (x:xs) = and [digitos x == digitos y| y <- xs]   digitos x = length (show x)

   Responder