Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- printLine :: [Int] -> String --Type of the function
- printLine [] = "" --Base case
- printLine (x:xs) = "+" ++ foldr (++) "+" f ++ printLine xs
- where f = replicate x "-"
- +-----++------++------++------+
- +-----+------+------+------+
Add Comment
Please, Sign In to add comment
