open List let rec f l=try f(l@[read_int()])with _->map(fun x->Printf.printf"%d "(1+length(filter((<)x)l)))l;;f[]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page