Rotate A String with Haskell


I qualified for Google Code Jam this year answering 3 out of 4 questions. I have no illusions about progressing very far, but I’m using it as an excuse to learn some Haskell and to write code faster.

As part of the learning process, I took one of my correct solutions over to the nice folks at the #haskell channel over on freenode and asked if there was a better way to do it. I learned something surprising.

As part of the solution to the Recycled Numbers problem required turning a number such as 1234 into a list of numbers with the digits rotated [4123, 3412, 2341]. User TSC2 in the channel gave me this simple way of doing it:

ghci> (\xs -> let n = length xs in (tail . take n . map (take n) . tails . cycle) xs) "abcde"

I’m still new to this so I had to work it out on paper, but here is a step by step explanation of what is happening: working from right to left as the functions are evaluated:


xs is just the input string.


cycle creates an infinite list out of the input list by repeating it. Haskell is lazy. It doesn’t actually create the list until it actually needs it, so I’ve added the ellpises just to show the concept that this is repeated infinitely.

["abcdeabcde...", "bcdeabcdea...", "cdeabcdeab...", "deabcdeabc...", ...]

This is where things start to get interesting. tails creates a list out of successive tails of a list. If you were to do this on a finite list you’d get a list of smaller and smaller elements. For example:

ghci> tails "abcde"

But since our input is an infinite we now have an infinite list of infinite lists, each element starting at one letter in from the original list. Remember, this hasn’t actually been worked out yet.

["abcde", "bcdea", "cdeab", "deabc", "eabcd" "abcde", ...]

take n takes the first n elements of a list. Our lambda expression defines this as the length of the list, which is 5. And map applies this to each element of the list. So now we have an infinite list of 5 element lists. which is closer to our required final output.

["abcde", "bcdea", "cdeab", "deabc", "eabcd"]

Applying take n again to the infinite list takes the first 5 elements of the finite list

["bcdea", "cdeab", "deabc", "eabcd"]

Applying tail to the finite list takes all but the first element, and we get the output that we were looking for. Even though along the way we had an infinite list of infinite lists.

And yet all Haskell did was provide a promise (a thunk in functional terms) that it would provide the answer when it was asked for, and as the function progressed the infinite list of infinite list became an infinite list of finite lists and then a finite list. And still it didn’t actually resolve all those calls until it was actually needed. In this case, when the ghci interpreter tried to get a string to display on the screen.

Freaky or what?