0votos

Codigo zig-zag en Haskell

por josejuan hace 1 año

Coste O(n) usando un zipper.

Cifrar y Descifrar códigos zig-zag

1
2
3
4
enc'' n xs = let r = replicate (n - 1) 
                 cs = cycle (r right ++ r left) 
                 up c (x, m) = m $ replace (x: cursor c) c 
             in  concatMap reverse $ toList $ foldl' up (fromList $ replicate n []) (zip xs cs) 
2 comentarios
0votos

Escrito por AverageUser hace 1 año

De donde importas `cursor` `replace` `fromList` y `toList`?
0votos

Escrito por josejuan hace 1 año

Una forma inmediata de saberlo es buscar: "haskell" "zipper" "cursor"

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.