π的数字排列中能否找到e的数字排列
用Wolfram Mathematica探究一下。我暂且认为提问的意思就是在
这两个小数系列中找出连续相等的最大次数。先贴上代码。In[5]:= Module[{l=(RealDigits[#,10,10^7][[1]]&/@{E,Pi})},TakeLargest[Total[#]&/@Split@Table[If[l[[1,k]]==l[[2,k]],1,0],{k,1,10^7}]->{"Element","Index"},1]]
Out[5]= {{6,252844}}我在小数序列1000万范围类搜寻，发现在某一位置 连续六位小数系列都相等。我在ipad Mini5上用Wolfram Cloud跑的，跑10^8就熄火了，估计写的代码优化不好。具体在连续相等的252844个位置目前关键是要知道小数点后几位的问题再加一行代码In[11]:= Module[{l=(RealDigits[#,10,1500000][[1]]&/@{E,Pi})},Total[(Length/@Split@ Table[If[ l[[1,k]]== l[[2,k]],1,0],{k,1,1500000}])[[1;; 252843]]]]
Out[11]= 1403248发现小数点后1403248位，好了，最后一步，到底是哪六位相等，最后一行代码In[13]:= RealDigits[#,10,1410000][[1]][[1403249;; 1403249+5]]&/@{E,Pi}
Out[13]= {{2,5,5,9,3,4},{2,5,5,9,3,4}}255934，话说六位刚好可以做银行卡密码，两开花。最后关于用wolfram cloud计算花费的时间，其实还挺快，如果服务器加网速分配正常，速度可以，不然会很慢。In[2]:= AbsoluteTiming[( RealDigits[#,10,10^7][[1]][[1403249;;1403249+5]]&/@{E,Pi});]
Out[2]= {25.2344,Null}
在牵制别家时棋牌问答，可故意碰三与七之牌。碰了三的话，可使持有一、二的人不得不拆掉边搭。碰了七的话，也可使持有八、九的人拆掉边搭。这一来，就容易延迟别家的听牌了棋牌问答，
