Like `FoldList`, but the combining function returns a pair
FoldPairList[f, y0, {a1, a2, …}]
FoldPairList[f, y0, list, g]
FoldPairList[f, {a0, a1, a2, …}]
FoldPairList[{#1, #1 + #2} &, 0, {1, 2, 3, 4}]
→ {0, 1, 3, 6}FoldPairList[QuotientRemainder, 498, {100, 50, 20, 5, 1}, Identity]
→ {{4, 98}, {1, 48}, {2, 8}, {1, 3}, {3, 0}}