sps[{}]：={{}}；sps[set:{i_，___}]：=联接@@函数[s，前缀[#，s]和/@sps[Complement[set，s]]/@Cases[子集[set]，{i，___}]；
croXQ[stn_]：=匹配Q[stn，{___，{___，x_，___，y_，___}，___、{___、z_、___、t_、___}、___}/；x<z<y<t||z<x<t<y]；
capXQ[stn_]：=匹配Q[stn，{___，{___，x_，___，y_，___}，___、{___、z_、___、t_、___}、___}/；x<z<t<y||z<x<y<t]；
表[Length[Select[sps[Range[n]]！capXQ[#]&&croXQ[#]&]]，｛n，0，10｝]
