Write a Prolog program to print out a square of n × n given characters
on the screen. Call your predicate square/2. The first argument should be a (positive)
integer, the second argument the character (any Prolog term) to be printed. Example:
?- square(5, ’* ’).
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
Yes
رجاااااااااااااء ضرورى جدا
ده الحل الى قدرت اوصله بس ل5 فقط انما انا عايزه يكون عام
print(0,X). print(A,X):-write(X),write(X),write(X),write(X),write(X),nl, A1 is A-1, print(A1,X).
وشكرااااااااااا