splicer :: [[a]] -> [[a]] such that the following holds true: splicer [ ['a', 'b'], ['c', 'd'], ['e', 'f'] ] => [ ['a', 'c', 'e'], ['b', 'd', 'f'] ] Useful for use in Vigenere cipher breakers.

splicer.hs

-- such that the following holds true (where => indicates function output)

-- splicer [ ['a', 'b'], ['c', 'd'], ['e', 'f'] ]  => [ ['a', 'c', 'e'], ['b', 'd', 'f'] ]

splicer :: [[a]] -> [[a]]
splicer [] = []
splicer (x:[]) = splitEvery 1 x
splicer (x:xs) = zipWith (:) x $ splicer xs