A/B/N:-writef("%w%r ",[A,B,N-1]). m:-readln(N),A=' ##'/' ##'/N,B=' #'/' #'/N,C='#'/' #'/N,A,B,C,C,C,B,A.

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

download

return to the top page