Here's my attempt at implementing the same functionality in Haskell: https://gist.github.com/1062472 https://gist.github.com/1062472 I tried to make it short,

Here's my attempt at implementing the same functionality in Haskell: https://gist.github.com/1062472 https://gist.github.com/1062472 I tried to make it short, but still somewhat readable, so it's not completely "golfed".