Mathematica处理24点问题初步

最新推荐文章于 2020-08-22 22:24:10 发布

Happy画板

最新推荐文章于 2020-08-22 22:24:10 发布

阅读量431

点赞数

分类专栏： Mathematica 数学文章标签： mathematica

本文链接：https://blog.csdn.net/qq_34040902/article/details/78964370

版权

数学同时被 2 个专栏收录

63 篇文章 2 订阅

订阅专栏

Mathematica

34 篇文章 0 订阅

订阅专栏

a = Tuples[{"+", "-", "*", "/"}, 4];
b = Permutations[{5, 6, 7, 10, 3}];
Drop[Table[
    If[((v = (ToString[#] & /@ ({ToString@
    n[[1]], ({m, n[[2 ;; 5]]} // Transpose)} // Flatten)) // StringJoin) //    
    ToExpression) == 24, v, 0], {m, a}, {n, b}] // Flatten // Union, 1]