4位数字0到9顺序组合，如何在7次内猜出该数字？ 第1页

                all                   =                   Flatten         [         Permutations                   /@                   Subsets         [         Range         [         0         ,                   9         ],                   {         4         }],                   1         ];                            callCC                   =                   {         Length         @         Intersection         [         #1         ,                   #2         ],                   Count         [         #1                   -                   #2         ,                   0         ]}         &         ;                            guess         [         list_         ]                   :=                   While         [         True         ,                             Echo         [         rnd                   =                   RandomChoice         [         all         ],                   "猜测: "         ];                             Echo         [         ans                   =                   callCC         [         rnd         ,                   list         ],                   "判定: "         ];                             all                   =                   Select         [         all         ,                   callCC         [         rnd         ,                   #         ]                   ===                   ans         &         ];                             If         [         Length         @         all                   ==                   1         ,                              Print         [         Text         @         Style         [         "游戏结束"         ,                   Red         ]];         Return         [         First         @         all         ],                              Echo         [         Length         @         all         ,                   "剩余可能性: "         ];                             ]                            ]