Mais um blog inútil.

Abril 14, 2009

Arvorezinha - Prolog

Arquivado em: arvorezinha — falso @ 10:10

Olá bom dia!

O meu colega enviou me por mail mais uma nova versão da arvorezinha, desta vez em prolog. Aqui vai o sores:

stars(0).
stars(N) :- write('*'), M is N-1, stars(M).

arvorezinha(5).
arvorezinha(N):- M is N+1, stars(M),write('\n'),X is N+1,arvorezinha(X).

display:-arvorezinha(0).

display.

Sem comentários a “Arvorezinha - Prolog”