%grupo4

jogoDegraus(D,N,L) :- findall(S,jogo(D,S),L), length(L,N). %para devolver todas as solucoes

jogo(0,[]).
jogo(N, [P|L]):- N>0, passo(P), N1 is N-P, jogo(N1,L).

passo(1).
passo(2).