8 lines
301 B
Haskell
8 lines
301 B
Haskell
import System.Environment (getArgs)
|
|
|
|
main = getArgs >>= (\[a, b, c] ->
|
|
do contents <- fmap lines $ readFile a
|
|
let b1 = read b :: Int
|
|
c1 = read c :: Int
|
|
putStr $ unlines $ concat [take (b1 - 1) contents, drop c1 $ drop b1 contents]
|
|
)
|