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