[Haskell-cafe] Software Tools in Haskell

[Benja Fallenstein]

Another version of detab:

main = interact $ perLine $ concat . snd. mapAccumL f 0 where
    f tab '\t' = (0, replicate (4-tab) ' ')
    f tab char = ((tab+1) `mod` 4, [char])

- Benja