リスト内のすべてのサブリストの先頭に要素を追加する

Question

concatr ::Integer -> [[Integer]] -> [[Integer]] 
concatr x (y) = [x] : y 
concatr x (y:ys) = concatr x y: concatr x ys 

私は頭が痛いほど多くの組み合わせを試みました。私は間違って何をしているのですか？私は、渡されたリストのすべてのサブリストに整数を入れるだけです。

Answer 1

map関数を使用できます。

concatr :: Integer -> [[Integer]] -> [[Integer]] 
concatr x ys = map (x:) ys 

イータは簡潔なソリューションを減らす：

concatr :: Integer -> [[Integer]] -> [[Integer]] 
concatr x []  = [] 
concatr x (y:ys) = (x:y):concatr x ys 

二例：あなたはmapを避けたい場合は

concatr x = map (x:) 

Answer 2

• リストが空の場合、私たちは空のリストを返します。
• リストがy:ysの場合、新しいヘッドはx:yであり、残りの部分は再帰的にconcatrと呼びます。

例：concatr 1 [[0],[2]]は[[1,0],[1,2]です。