import Data.List (group, mapAccumL)

compress :: [Int] -> [[Int]]
...

Haskell On compressing an array of int...

by bob, April 15, 2009 20:40

oops i didn't read the orig...

compress :: [Int] -> [(Int,Int)]
compress (l:ls) = reverse $ foldl (\ o@((c,i):cs) x -> if x == c + i then (c,i+1):cs else (x,1):o) [(l,1)] ls
compress [] = []

import Data.List (group)

compress :: [Int] -> [[Int]]
...

Haskell On compressing an array of int...

by bob, April 15, 2009 17:12

By the way your problem is ...

data Tag = Tag {
 tagType  :: String,
 tagAttrs :: [Attr]
...

Haskell On Tag

by sargon, April 13, 2009 09:51

Using show instances for pr...

import Data.List (transpose)

main = putStr . unlines . reverse . rotate . lines =<< getContents
...

pivot ps = minimum ps
-- Or in the so-called point-free style:
-- pivot = minimum

main = do s <- getContents
          putStr $ unlines $ reverse $ rotate $ lines s

...