как сделать длину элементов списка такой же как самой длинной в haskell

Question

например: makeSame ["ab", "bad", "mammy"] тогда вывод ["ab***","bad**", "mammy"] за каждый пропущенный символ получите '*'

makeSame:: [String] -> [String]
makeSame m = let f = length  (last (sort m))
  in 
    (\x ->replicate length x x ++'*') m

но даже не компилируется.

Answer 1

вот решение с вспомогательной функцией от @ talex

longest :: [String] -> Int
longest m = maximum $ map length m

makeSame :: [String] -> [String]
makeSame m = map (\ x -> x ++ replicate (longest m- length x) '*') m 

Answer 2

Чтобы получить максимальную длину, вы можете:

maxLength list = maximum $ map length list

для дублирования символов используйте replicate (пример replicate 3 '*' дает "***").

Все, что вам нужно сделать, это объединить эти два метода.

Чтобы определить количество пропущенных символов, вам нужно вычесть длину строки (length "somestring" передайте ее вам) из максимальной длины.