リストの一部を累積するプログラムを作成する - Haskell

Question

私はプログラムで作業していますが、トリはトリプルのリストを取ります。それらのうちのどれかに応じて、他の部分の合計トリプル

totalWeightOfFirstClass :: [Parcel] -> Weight 
totalWeightOfFirstClass [] = go 
totalWeightOfFirstClass ((weight, postcode, firstclass):xs) = 
    if firstclass == True then 
    go weight 
    totalWeightOfFirstClass xs 
    else 
    totalWeightOfFirstClass xs 
where 
    go :: Int -> Int 
    go _ = 0 
    go x = 

だから、プログラムは、リスト内のすべての重み値を追加し、そのトリプルはファーストクラスだった場合にのみ、最後にそれを表示する必要があります。これまでは、すべての値を累積して最後に表示するというヘルパーステートメントがあります。

何か助けやアドバイスをいただければ幸いです。

よろしく、Kieran。

Answer 1

私が正しくあなたを理解していた場合は、小包が最初にクラスを送信する重みの和をしたい、これはトリックを行う必要がありますが：

totalWeightOfFirstClass :: [Parcel] -> Weight 
totalWeightOfFirstClass [] = 0 
totalWeightOfFirstClass ((weight, postcode, firstclass):xs) 
    | firstclass = weight + totalWeightOfFirstClass xs 
    | otherwise = totalWeightOfFirstClass xs 

Answer 2

あなたのコード内であまりにも多くの仕事です。このような基本的な再帰を書くのではなく、コードを表現するために汎用コンビネータを使用することを検討してください。

totalWeightOfFirstClass = sum . (fmap (\(weight, _, _) -> weight)) . filter (\(_, _, firstc) -> firstc) 

フィルターを適用した後、すべての重みを合計します。ご覧のように、このコードは非常にきれいで読みやすくなっています。