Timings
- To: mathgroup at smc.vnet.net
- Subject: [mg4604] Timings
- From: Allan Hayes <hay at haystack.demon.co.uk>
- Date: Wed, 21 Aug 1996 03:25:23 -0400
- Sender: owner-wri-mathgroup at wolfram.com
Here are some timings for methods given in recent postings
Reordering lists and How do I use Select[list,condition]?
lst = {2, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 1, 3, 1, 1, 2, 1, 2, 1,
2, 1, 1,1, 1, 2, 1, 2, 1, 3, 1, 2, 2, 1, 2, 1, 2, 3, 2, 4, 1, 1, 1,
1, 2, 1, 1, 1, 1, 2, 2, 2, 1, 2, 1,
2,3, 2, 2, 2, 1, 2, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1};
Do[lst/.{1->4,2->3,3->2,4->1},{100}]//Timing
Do[5 - lst,{100}]//Timing
Do[Switch[#,1,4,2,3,3,2,4,1]&/@lst,{100}]//Timing
Do[Map[Mod[#, 4] + 1&, lst],{100}]//Timing
{0.316667 Second, Null}
{2.85 Second, Null}
{2.9 Second, Null}
{3.35 Second, Null}
data = {{1,1,a,4,5,6},{2,1,a,2,3,4},{3,1,a,7,8,9},
{1,2,b,4,5,6},{2,2,b,2,3,4},{3,2,b,7,8,9},
{1,3,c,4,5,6},{2,3,c,2,3,4},{3,3,c,7,8,9}};
Do[Cases[data,{_,2,___}],{500}]//Timing
Do[Select[data,#[[2]]==2&],{500}]//Timing
Do[Select[data, MatchQ[#, {_,2,___}]&],{500}]//Timing
{0.716667 Second, Null}
{1.58333 Second, Null}
{2.25 Second, Null}
Allan Hayes
hay at haystack.demon.co.uk
==== [MESSAGE SEPARATOR] ====