Ticket #4334: T4334.hs

File T4334.hs, 511 bytes (added by daniel.is.fischer, 4 years ago)

testcase

Line 
1module Main (main) where
2
3import System.Environment (getArgs)
4
5mkText :: Int -> Int -> Char -> String
6mkText ll ln c =
7    unlines $ [replicate k c | k <- [ll .. ll+ln]]
8
9main :: IO ()
10main = do
11    args <- getArgs
12    let (ll, ln, c) =
13          case args of
14            (a1:a2:a3:_) -> (read a1, read a2, head a3)
15            (a1:a2:_)    -> (read a1, read a2, 'a')
16            (a1:_)       -> (read a1, 3, 'b')
17            _            -> (100000, 5, 'c')
18    mapM_ (print . length) (lines $ mkText ll ln c)