let rec(@)l i=i=0&List.map(Printf.printf"%d ")l=[];Scanf.scanf"%d "(fun n->Sort.list(>)(n::l)@i-1);;[]@read_int()
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page