Triangle by m.ukai

let(!),x=string_of_int,read_int()let rec($)i j=let rec(@)m k s=m>x&(i+j$j+1;()=print_endline s)||(m+k@k+1)(s^" "^ !m)in i<x&(i+j+1@j+2)!i;;1$1

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

download

return to the top page