%n-viele zeichen auf der Konsole ausgeben
printrow(0) :-
   nl.

printrow(Num) :-
   write(*),
   Num2 is Num - 1,
   printrow(Num2).


%Dreieck nur ansteigend zeichnen
dreieck(0).

dreieck(Num) :-
   Num2 is Num - 1,
   dreieck(Num2),
   printrow(Num).


%Dreieck nur absteigend zeichnen
dreieckflip(0).

dreieckflip(Num) :-
   printrow(Num),
   Num2 is Num - 1,
   dreieckflip(Num2).



%Dreieck ansteigend-absteigend zeichnen
dreieck(Max, Max) :-
   printrow(Max),
   printrow(Max).

dreieck(Min, Max) :-
   printrow(Min),
   Min2 is Min + 1,
   dreieck(Min2, Max),
   Max2 is Min2 - 1,
   printrow(Max2).