>>684
数えるのもプログラム任せ
library(MASS)
d=cbind(0,t(combn(9,2)),10)
f=function(x) all(diff(x)>1)
fractions(mean(apply(d,1,f)))
結果
[1] 5/12