1

いま、学校の課題でHaskellを使ってタイトルにもあるようにリスト内の数字をすべて掛け合わせるコードを書いています。

例)[1,2,3,4,5] -> 120

現段階での僕のコードは以下のようになっています。

myproduct :: (Num a) => [a] -> a
myproduct[] = 0
myproduct(x:xs) = x*(myproduct xs)

色々なサイトなどを参照しながら書いてみたんですがどれもうまくいってません。

また、fold functionを使わないといけないのですが、どうすればいいか全くわからない状態まで来てしまいました。
どなたか教えていただけると幸いです。また解説等も載せてくれると幸いです。
よろしくお願いします。

1

2 件の回答 2

3

0に何をかけても0になので、

myproduct[] = 0

だと、必ず答えは0になってしまいます。

myproduct[] = 1

とすれば、うまくいくはずです。

1

とりあえず Try Haskell で動いたので

累積和の場合

foldl (+) 0 [1 .. 10]
-- 55
-- :: (Enum b, Num b) => b

累積積の場合

foldl (*) 1 [1 .. 5]
-- 120
-- :: (Enum b, Num b) => b

追記

また、fold functionを使わないといけないのですが

まず, fold使わない場合はこんな感じ

sum []         = 0
sum (x:xs)     = x + sum xs

product []     = 1
product (x:xs) = x * product xs

fold使うと (最初に書いたように)こんな感じ

sum     = foldr (+) 0
product = foldr (*) 1

foldl使うか foldr使うかは(内容に合わせて)適当に。
例えば foldr (+) 0 [1,2,3] なら
1:(2:(3:[])) のようになり
1+(2+(3+0)) のように変換されます

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。