« Suite de Conway » : différence entre les versions
Contenu supprimé Contenu ajouté
imported>Marcc |
Aucun résumé des modifications |
||
Ligne 198 :
for i in range(10):
print suite.next()
</source>
</div>
=== En [[Prolog]] ===
<div class="exemple">
<source lang="prolog">
niemeConway(0,[1]).
niemeConway(N,R):- gte(N,1), sub(M,N,1), niemeConway(M,L), conway(L,R).
conway([],[]).
conway([E],[1,E]).
conway([E,E|L],[M,E|R]) :- conway([E|L],[N,E|R]), M is N+1.
conway([E,F|L],[1,E|R]) :- dif(E,F), conway([F|L],R).
</source>
</div>
| |||