| 数学
|
否=整数位数/@ {@ {12,,14,,23,,25,,34,,36,,45,,47,,56,,58,,69,,78,,89}; 排序[[From数字/@压扁[排列/@选择[子集[范围@9, {1,9}],交叉[子集[#, {2}],不] == {} &],1]] (* _乔瓦尼 Resta公司_,四月 06 2017*)
FromDigits/@Flatten[Permutations/@Select[Subsets[Range@9,{1,9}],Intersection[Subsets[#,{2}],no]=={}&],1]](*乔瓦尼·雷斯塔2017年4月6日*)
|