如何製作由其他列表組成的列表？

Question

我試圖做一個列表包含多個較小的列表，每個sub-lists.Here的第一個元素翻一番是我的代碼：

double_the_first::(Num a)=>[[a]]->[a] 
double_the_first list = case list of 
[]     ->[] 
[[x]]    ->[x*2] 
[x:xs]    ->map(*2)(map(head)[x:xs]) 

我怎麼能代表相同的[2,3列表]，[4,5]]？我知道我的代碼是錯誤的，但haskell不顯示任何錯誤，怎麼樣？當我輸入這樣的列表時，它將不起作用：

double_the_first [[2,3],[2,4],[4,3]] 
*** Exception: test.hs:(3,25)-(6,51): Non-exhaustive patterns in case 

任何人都可以幫助我嗎？

Answer 1

首先寫一個函數，對列表中的每個元素進行操作。就你而言，每個元素本身就是一個列表。

doubleFirst :: Num a => [a] -> [a] 
doubleFirst [] = [] 
doubleFirst (x:xs) = (2*x:xs) 

然後使用map該功能適用​​於元素的列表：

map doubleFirst [[2,3],[2,4],[4,3]] 

Answer 2

你缺少某些情況下，當列表爲空。您可以按照以下方式更改代碼。我增加了列表爲空的可能性。我想你想使用不同類型的結果。

double_the_first::(Num a)=>[[a]]->[[a]] 
double_the_first list = case list of 
    []     -> [] 
    (([]):xs)   -> [[]] ++ double_the_first xs 
    ((y:ys):xs)   -> [(2*y:ys)] ++ double_the_first xs