这两个小数系列中找出连续相等的最大次数。先贴上代码。
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}