Naci sumu i parnih i neparnih brojeva

/* naci sumu i parnih i neparnih brojeva
 */
suma(1, 0, 1).
suma(N, P, NP):- N>1, (N mod 2)=:=0, N1 is N-1, suma(N1, P1, NP), P is P1 + N.
suma(N, P, NP):- N>1, (N mod 2)=:=1, N1 is N-1, suma(N1, P, NP1), NP is NP1 + N.