X by

let x=read_int();;let p = print_string;;let c i j=if i=j||j+i-1=x then "X" else " ";;for j=1 to x do for i=1 to max j (x-j+1) do p (c i j) done; p "\n"; done;;

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

download

return to the top page