This one looks somewhat symmetrical:
f xs =
let xys = filter ( \ (x,y) -> y - x > 1 )
$ zip xs ( tail xs )
in zip ( [ head xs ] ++ map snd xys )
( map fst xys ++ [ last xs ] )_______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe
