Haskell Как получить сумму всех положительных членов, используя функцию композиции?

Question

Мне нужно написать функцию, которая принимает все положительные числа из списка Integer, добавляет к каждому 10, а затем суммирует их все, пока не достигнет maxNum.

Я уже писал что-то, что вроде работает:

ff :: Integer -> [Integer] -> Integer 
ff maxNum = (<=maxNum) . sum . map(+10) . filter(>0) 

, но проблема в том, что эта функция возвращает истину, если сумма не превышает MAXNUM и ложно, если сумма больше ... Как я понимаю, Я очень близка к тому, что хочу. Может кто-нибудь мне помочь ???

Answer 1

Вам нужна подвижная сумма, например. что-то вроде

rollingSum [1..10] = [0,1,3,6,10,15,21,28,36,45,55] 

В конце концов, sum только даст вам сумму окончательный, где вы должны проверить промежуточные.

К счастью, scanl (+) 0 предоставляет эту функциональность. Таким образом, вы можете взять номера этой прокатной суммы до тех пор, как они меньше maxNum, а затем last элемент:

ff maxNum = last . takeWhile (<= maxNum) . scanl (+) 0 . map (+10) . filter (> 0)