Готовые лабораторные работы / 2 / 23

-- Описать функцию f23 :: (Num a) => [a]->a такую, что f23 [x1..xn] = сумма по всем i значений (xi+1)*i .

f23 xs = f23_1 xs 1

f23_1 [] i = 0
f23_1 (x:xs) i =(x+1)*i+ f23_1 xs (i+1)