Stars ; Triangle

/*ETOILE*/
DOMAINS
int=integer
PREDICATES
etoile(int)
tr(int)
CLAUSES
etoile(0):-nl.
etoile(X):-X>0,write("*"),X1=X-1,etoile(X1).



/*triangle  et inversement*/
*                   ***
**                 **
***               *

DOMAINS
int=integer
PREDICATES
point(int)
tr(int)
invtr(int)
CLAUSES
point(0):-nl.
point(X):-X>0,X1=X-1,write("*"),point(X1).
tr(0).
tr(X):-X>0,X1=X-1,tr(X1),point(X).
invtr(0).
invtr(X):-X>0,X1=X-1,point(X),invtr(X1).