Ventana deslizante
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
-- Definir la función -- ventanas :: Int -> Int -> [a] -> [[a]] -- tal que (ventanas x y zs) es la lista de ventanas de zs de tamaño x -- y deslizamiento y; es decir listas de x elementos consecutivos de zs -- (salvo, posiblemente, la última que puede ser menor) tales que la -- diferencia de posiciones entre los primeros elementos de ventanas -- consecutivas es y. Por ejemplo, -- ventanas 3 2 [5,1,9,2] == [[5,1,9],[9,2]] -- ventanas 3 3 [5,1,9,2] == [[5,1,9],[2]] -- ventanas 3 4 [5,1,9,2] == [[5,1,9]] -- ventanas 4 1 [1..7] == [[1,2,3,4],[2,3,4,5],[3,4,5,6],[4,5,6,7]] -- ventanas 4 2 [1..7] == [[1,2,3,4],[3,4,5,6],[5,6,7]] -- ventanas 4 3 [1..7] == [[1,2,3,4],[4,5,6,7]] -- ventanas 4 4 [1..7] == [[1,2,3,4],[5,6,7]] -- ventanas 4 5 [1..7] == [[1,2,3,4],[6,7]] -- ventanas 4 6 [1..7] == [[1,2,3,4],[7]] -- ventanas 4 7 [1..7] == [[1,2,3,4]] -- ventanas 4 8 [1..7] == [[1,2,3,4]] -- ventanas 3 2 "abcdef" == ["abc","cde","ef"] -- ventanas 3 3 "abcdef" == ["abc","def"] -- ventanas 3 4 "abcdef" == ["abc","ef"] -- ventanas 3 5 "abcdef" == ["abc","f"] -- ventanas 3 6 "abcdef" == ["abc"] -- ventanas 3 7 "abcdef" == ["abc"] -- ventanas 1 5 "abcdef" == ["a","f"] |
Soluciones
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
import Data.List -- 1º definición (por recursión): ventanas1 :: Int -> Int -> [a] -> [[a]] ventanas1 _ _ [] = [] ventanas1 x y zs | length zs <= x = [zs] | otherwise = take x zs : ventanas1 x y (drop y zs) -- 2ª definición (con unfold): ventanas2 :: Int -> Int -> [a] -> [[a]] ventanas2 x y = unfoldr aux where aux [] = Nothing aux xs = Just (ys,zs) where (ys,us) = splitAt x xs zs | null us = [] | otherwise = drop y xs |
Referencia
El ejercicio está basado en el problema del 30 de abril de 2014 de 1HaskellADay.
2 Comentarios