A/B/N:-writef("%w%r ",[A,B,N-1]). m:-prompt1(''),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