Добавить список в список списков в Haskell

Question

Как добавить список в список списков? Скажем, я хочу добавить itemz в bagList, который является списком списков. Как я могу это сделать?

bagList itemz = mappend bagList itemz    

Answer 1

Вы могли бы рассмотреть вопрос о включении его на фронте, это быстрее:

bagItem bag item = item : bag 

Кроме того, похоже, вы пришли из императивного мышления, как вы используете bagList до и после = не совсем прав: выражения до и после = не представляют собой одну и ту же конструкцию. Перед тем, как =bagItem используется как функция, после = он используется как некоторая Monoid (что, если itemz - список, также должен быть список).

Если вы действительно хотите добавить элемент (это будет медленнее, потому что операция потребует пройти весь путь через список, чтобы добавить новый элемент в конце, и весь список нужно будет восстановить) вы можете делать то, что говорит Christoph или вы можете пойти на рекурсивной композиции что-то вроде этого:

appendItem :: a -> [a] -> [a] 
appendItem i (x:xs) = x : appendItem i xs 
appendItem i [] = i : [] 

Если вы оба хотите добавить и также обеспокоены производительности, вы должны взглянуть на разностные списки, например, выглядят для раздела в списках разностей в this chapter in Learn You a Haskell.

---

Update

Из комментариев, кажется, что вы на самом деле ищет это Map s. Мы можем сделать Map с каждым элементом в виде ключа и количеством вхождений в качестве значения. В вашем случае это будет Map String Int.

import Data.List (foldl') 
import qualified Data.Map as M 

bag :: M.Map String Int 
bag = M.empty 

addToBag :: M.Map String Int -> [String] -> M.Map String Int 
addToBag = foldl' go 
    where go m i = M.insertWith (+) i 1 m 

main = print $ addToBag bag ["a","b","c","a"] 
-- fromList [("a",2), ("b", 1), ("c", 1)]