let(/),n=Printf.sprintf"%*s",read_int()let(%)=List.map let rec($)b a=b<n*n-1&b*2$(^)(b/"")%a@(fun s->s^b*2/s)%a||[]<print_endline%a;;2$[" /\\";"/__\\"]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page