rect by j2e2xae

-A:-get0(A).
i(53,5,3).
i(55,7,9).
i(10,10,33).
+C:-d(+,-,C).
d(A,B,C):-writef("%n%r%n\n",[A,B,C,A]).
C-D:-forall(between(1,D,_),d("|",' ',C)).
m:- -_,-_,-B,i(B,R,C),+C,C-R,+C.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page