Haskell multiple arguments function

Question

myfunc:: [Int] -> Int -> Int 
myfunc mylist i = 
    if length(mylist) == 0 then 1 

    else 
     (head(mylist) * i) + myfunc((tail(mylist)) (i+1)) 

Я хочу получить взвешенную сумму по списку.

, например, при заданном значении параметра [10,9,8,7,6] и 1, Я хочу, чтобы получить 10*1 + 9*2 + 8*3 + 7*4 + 6*5 ..

Но мой код помещает ошибки,

test.hs:9:18: error: 
    • Couldn't match expected type ‘Int’ with actual type ‘Int -> Int’ 

, как решить эту проблему ??

Answer 1

вы должны проверить круглые скобки - использовать их гораздо больше, то вам нужно (что приводит к проблеме здесь)

Если вы посмотрите на myfunc((tail(mylist)) (i+1)) тогда, если считать (..) вы увидите, что один аргумент myfunc здесь tail(mylist) (i+1), но это будет означать, что вы пытаетесь применить (i+1) к tail(mylist)

Кроме того, вместо проверки с length и head вы можете использовать шаблон-согласование.

вот очищен версия вашей функции:

myfunc :: [Int] -> Int -> Int 
myfunc [] _ = 1 
myfunc (h:tl) i = h*i + myfunc tl (i+1) 

который будет возвращать 111 для примера:

> myfunc [10,9,8,7,6] 1 
111 

---

Я не знаю, сколько вы видели of Haskell, но вы можете выразить это как

myfunc :: [Int] -> Int -> Int 
myfunc weights start = 1 + sum (zipWith (*) weights [start..]) 

тоже - что я хотел бы рассмотреть более читаемым и идиоматических

также: - почему 1 если список пуст? Должен ли ваш взвешенный сумма быть 0, если список пуст? ??