X by ksk

let n=read_int()/2
let rec($)i?(s=String.make(n+abs i)' '^"X")_=s.[n-abs i]<-'X';i-1$print_endline s;;n$()

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

download

return to the top page