star(N) :- star(N, 0).
star(N, N). star(N, I) :- I < N, draw_star(I), nl, I2 is I + 1, star(N, I2).
draw_star(N) :- N > 0, write('*'), N1 is N - 1, draw_star(N1). draw_star(0).
该程序用于打印一个 N 行的星星图案,其中第 i 行有 i 个星号。我们用递归方式实现它,star(N) 是程序的入口点。我们会将 N 传递给它,以确定星形图案的总行数。然后,它会调用一个名为 star(N,I) 的辅助函数,用于打印出 N 行以及第 i 行的所有星星。星形图案的第 i 行上有 i 个星号,因此我们需要传递 i 的值,并将其与该行上的应该有多少星号进行比较。
最后,我们再次使用递归来处理程序的行数和打印每行的星号。像前面一样,维护一个循环计数器(名为 I),并在每一行上打印出相应数量的星号,使用名为 draw_star 的辅助函数来完成。