如何在prolog中打印n * n给定字符的平方？

编写一个Prolog程序，在屏幕上打印出n * n个给定字符的正方形。调用你的谓词square/2。第一个参数应该是（正）整数。第二个参数是要打印的字符（任何Prolog术语）。例如：如何在prolog中打印n * n给定字符的平方？

?-square(5, '*'). 
***** 
***** 
***** 
***** 
***** 
Yes

我刚开始学习这门语言。我这样做：

square(_,'_'). 
square(N, 'B') :- 
     N>0, 
     write(N*'B').

它根本不起作用。谁能帮我？

来源

2013-05-13 user2378457

你能写一个字吗？ '？ - write_one（'c'）。'会打印'c'。你能写这个谓词吗？ – 2013-05-13 16:21:15

'write（N *'B'）'要求Prolog写出表达式'N *'B''。 Prolog不会评估'is/2'表达式之外的算术表达式，除此之外，没有办法通过这种方式重复其他原子来创建原子。更加努力。你可以做到，你只需要非常明确。 – 2013-05-13 17:25:46

所以你的问题基本上是“我该如何编写一个嵌套在循环中的循环？”

这是怎么写的与反整数空循环：

loop(0). 
loop(N) :- N > 0, N0 is N-1, loop(N0).

这在C将是：

for(i=0; i < n; ++i) { }

而且你似乎已经知道如何打印（write(foo) ）。

来源

2013-05-13 18:00:18

分解问题。写一个N×N的平方，你需要做两件事情：

写N行
写一行，包括N个字符后跟一个换行符。

二是容易：

do_line(0,_) :- 
    nl 
    . 
do_line(N,C) :- 
    N > 0 , 
    write(C) , 
    N1 is N-1 , 
    do_line(N1,C) 
    .

首先是不是要困难得多：

do_lines(0,_,_). 
do_lines(M,N,C) :- 
    M > 0 , 
    do_line(N,C) , 
    M1 is M-1 , 
    do_lines(M1,N,C) 
    .

的所有你需要做的是把它包：

write_square(N,C) :- do_lines(N,N,C) .

简单！

来源

2013-05-14 17:16:52

您需要绘制N个星线/字符

line(N,X):- N>0, N1 is N-1, line(N1,X), write(X), fail; true.

然后你会得出的星星/字符N行一列。

s(N,Chr):-sAux(N,0,Chr). sAux(N,N,Chr). sAux(N,C,Chr):-C<N, C1 is C+1, sAux(N, C1, Chr), line(N,Chr),nl. s(N,Chr):- N>0, N1 is N-1, s(N1,X), linie(N,X), nl, fail;true.

来源

2018-03-04 22:14:45

如何在prolog中打印n * n给定字符的平方？

回答

相关问题