如何在prolog中打印n * n给定字符的平方?
问题描述:
编写一个Prolog程序,在屏幕上打印出n * n个给定字符的正方形。调用你的谓词square/2。第一个参数应该是(正)整数。第二个参数是要打印的字符(任何Prolog术语)。例如:如何在prolog中打印n * n给定字符的平方?
?-square(5, '*').
*****
*****
*****
*****
*****
Yes
我刚开始学习这门语言。我这样做:
square(_,'_').
square(N, 'B') :-
N>0,
write(N*'B').
它根本不起作用。谁能帮我?
答
所以你的问题基本上是“我该如何编写一个嵌套在循环中的循环?”
这是怎么写的与反整数空循环:
loop(0).
loop(N) :- N > 0, N0 is N-1, loop(N0).
这在C将是:
for(i=0; i < n; ++i) { }
而且你似乎已经知道如何打印(write(foo)
)。
答
分解问题。写一个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) .
简单!
答
您需要绘制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.
你能写一个字吗? '? - 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