看板 [ Mathematica ]
討論串[問題] 能否有更快的寫法
共 2 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#1
[問題] 能否有更快的寫法
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者jurian0101 (Hysterisis)時間12年前 (2012/02/12 01:31), 編輯資訊
1
0
0
內容預覽:
在puzzle板分享了問題「翻轉數列」:. 我其實還是在借題磨利自己的Mathematica知識，. 最後這題我得到最快的算法是用BitSet作出「是否已經出現過」的判斷，這是速率. 限制步驟!. - -. start = SessionTime[]; (*計時起點*). goal = {10^4,
(還有1096個字)
#2
Re: [問題] 能否有更快的寫法
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者chungyuandye (養花種魚數月亮賞星星)時間12年前 (2012/02/12 21:06), 編輯資訊
0
0
1
內容預覽:
暴力法. goal={10^4,10^5,10^6,10^7,10^8,10^9};. revQ[x_Integer]:=If[Total@Boole[FreeQ[{1,6,8,9,0},#]&/@. IntegerDigits[x]]==0,1,0]. rev[x_]:=FromDigits[Re
(還有854個字)
首頁
上一頁
1
下一頁
尾頁