Mais um blog inútil.

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.

\ | / ; ; ; | \ | / ; ; ; ; ___ ,--........,, | /; ; ; ;//(=o\ .' -='__________________ | /; ; ; //=o=_/ .\ : | | | | | / ; <)))/` \__/ .\ _,==" \ <3 .' |_____| |_____| | \; ; ; .'<))) ,_'\.\~" //`. \ .' |_____ _____| | | <))).______\ \- |_| /,\ ` \ _.' | | | | | ~ ; ; ;/ _,.-~'||| || _,-''\..--' | | | | | ~ /; ;/="" |_| || _="` \ | | | | | ~..==` \\ || / /_="` (o) | | | | | | ~` ~ /,\ / /_,)") | | | | | | ~ ~~ _,.-)") \ _ /_ |_____|_|_____| | ~ ~ _<)))| \ ( )( ) | ~ =~"\____/ \ /\ \ DiKKybird | ~ ~ (o)| \____________/ _| |_ ========= | ~ ~ (o) \_|_/ | |(o) ]]>