Prolog- How to sum only part of list inside another list?

Question

Define a recursive rule, in the form of sum(Lst, Total), which can calculate the sum of a list of stated, where Lst is in the format of [[s1, p1], [s2, p2],

Answer 1

sum(L,Total):- total(L,0,Total).

sum([],Total,Total).

sum([[_|HT]T],Temp,Total) :- Temp1 is temp+HT,total(T,Temp1,Total).