proxima_geracao([],[]).
proxima_geracao([X],[X]).
proxima_geracao([X,Y|R],[Z|N]) :-
regra(X,Y,Z),
proxima_geracao([Y|R],N).
jogo_vida(0,_,[]).
jogo_vida(N,L,[P|R]) :-
proxima_geracao(L,P),
N1 is N-1,
jogo_vida(N1,P,R).