-1

いくつかの haskell の質問に取り組んでいましたが、これら 2 つで行き詰まってしまいました。答えは簡単ですが、私の頭では解決できません。

3 つの引数のうちいくつが等しいかを判断する関数を作成します (つまり、0、2、または 3 のいずれかを返します)。

howManyEqual :: Int -> Int -> Int -> Int
howManyEqual x y z
    | x == y && x == z && y == z = 3
    | 

3 つの整数引数のうち、平均値より大きいものがいくつあるかを返す関数を作成します。

howManyAboveAverage :: Int -> Int -> Int -> Int
howManyAboveAverage x y z
    | x > average(x y z) && y > average(x y z) && z > average(x y z) = 3
    where
    average a b c = ((a + b + c) / 3)

誰かがこれらを終わらせるのを手伝ってくれませんか:)

ありがとう

4

2 に答える 2