hs-2-1

torol_szokoz :: String -> String
torol_szokoz [] = []
torol_szokoz (' ':xs) = torol_szokoz(xs)
torol_szokoz (x:xs) = toLower x:torol_szokoz(xs)

string_buffer :: Int -> String
string_buffer 0 = []
string_buffer n = " " ++ string_buffer (n-1)

string_negyszog :: Int -> String -> [String]
string_negyszog n s
    | length s>=n = take n s : string_negyszog n (drop n s)
    | length s>0 = [s ++ string_buffer (n-(length s))]
    | otherwise = []

string_oszlop :: Int -> Int -> [String] -> [String] -> String
string_oszlop i n (x:xs) lista
    | i == n = ""
    | length xs == 0 && x!!i /= ' ' = [x!!i] ++ string_oszlop (i+1) n lista lista
    | length xs == 0 && x!!i == ' ' = string_oszlop (i+1) n lista lista
    | x!!i == ' ' = string_oszlop i n xs lista
    | otherwise = [x!!i] ++ string_oszlop i n xs lista

string_spacel :: Int -> Int -> String -> String
string_spacel 0 _ string = string
string_spacel _ _ [] = []
string_spacel c i (x:xs)
    | c == i = [' '] ++ string_spacel c 0 (x:xs)
    | otherwise = x:string_spacel c (i+1) xs

string_kodol :: Int -> Int -> String -> String
string_kodol 0 _ _ = []
string_kodol _ _ [] = []
string_kodol n c string = string_spacel c 0 string_raw
                                    where string_raw = (string_oszlop 0 n string_array string_array)
                                            where string_array = (string_negyszog n uj_string)
                                                    where uj_string = (torol_szokoz string)