
(*Pattern matching*)
AbsoluteTiming@ReplaceList[Range[100],
{___,a_,___,b_,___,c_,___}:>{a,b,c}/;a+b+c==50]
(*Select*)
AbsoluteTiming@Select[Subsets[Range[100],{3}],Total@#==50&]
"Patten matching is always faster than "Select".
(*Pattern matching*)
AbsoluteTiming@ReplaceList[Range[100],
{___,a_,___,b_,___,c_,___}:>{a,b,c}/;a+b+c==50]
(*Select*)
AbsoluteTiming@Select[Subsets[Range[100],{3}],Total@#==50&]
Copyright 2009 Engadget's Style - Design by FUNction, Ray Wei - Powered by Blogger
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助,那請留個訊息給我~