prolog - 我如何使用 prolog 打印出星星

Question

我需要在一行上打印出星星，然后在下一行打印 n-1 直到一颗星星，然后返回 n 数量。

标签： prolog

Answer 1

如下呢？

line(N) :-
  foreach(between(1, N, _), write('*')),
  nl.

star(1) :-
  line(1).

star(N) :-
  line(N),
  NM1 is N-1,
  star(NM1),
  line(N).

呼唤star(N)。