data order by m.ukai

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