Permutations by ksk

let rec($)l p=List.map(fun a->List.filter((<>)a)l$p@[a])l=[]&()=print_endline(String.concat" "p);;["0";"1";"2";"3";"4";"5"]$[]

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

download

return to the top page