Permutación de elementos consecutivos

3 Comentarios

1. Haskell

   permutaConsecutivos :: [a] -> [a] permutaConsecutivos xs = concat [reverse zs | zs <- consecutivos xs] consecutivos [] = [] consecutivos xs = [take 2 xs] ++ consecutivos (drop 2 xs)

   1 2 3 4 5

   permutaConsecutivos :: [a] -> [a] permutaConsecutivos xs = concat [reverse zs | zs <- consecutivos xs]   consecutivos [] = [] consecutivos xs = [take 2 xs] ++ consecutivos (drop 2 xs)

   Responder

2. Haskell

   permutaConsecutivos :: [a] -> [a] permutaConsecutivos [] = [] permutaConsecutivos [x] = [x] permutaConsecutivos (x:y:xs) = y : x : permutaConsecutivos xs

   1 2 3 4

   permutaConsecutivos :: [a] -> [a] permutaConsecutivos []       = [] permutaConsecutivos [x]      = [x] permutaConsecutivos (x:y:xs) = y : x : permutaConsecutivos xs

   Responder

3. Haskell

   permutaConsecutivos :: [a] -> [a] permutaConsecutivos (x:y:ys) = y : x : permutaConsecutivos ys permutaConsecutivos xs = xs

   1 2 3

   permutaConsecutivos :: [a] -> [a] permutaConsecutivos (x:y:ys) = y : x : permutaConsecutivos ys permutaConsecutivos xs = xs

   Responder