Re: Tilting at Windmills?
- To: mathgroup at smc.vnet.net
- Subject: [mg62130] Re: Tilting at Windmills?
- From: lucb at ea.com
- Date: Sat, 12 Nov 2005 03:31:43 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Matt, would this do what you want in a simpler way?
[[Expression:|||
test = Range[5]
|||]]
the list is first duplicated to have 4 lists using Table. Then the elements are re-arranged using Transpose and flatten.
Then we remove the first 3 and the last 3 and finally Partition it like you wnat.
[[Expression:|||
Partition[Drop[Drop[Flatten[Transpose[Table[test, {4}]]], 3], -3], 2]
|||]]
on this server it seems to go fast
[[Expression:|||
Timing[result = Partition[Drop[Drop[Flatten[Transpose[Table[ Range[200000], {4}]]], 3], -3], 2];]
|||]]
I hope this helps,
Luc
P.S: and Phil was faster than me at answering this...
Link to the forum page for this post:
http://www.mathematica-users.org/webMathematica/wiki/wiki.jsp?pageName=Special:Forum_ViewTopic&pid=5930#p5930
Posted through http://www.mathematica-users.org [[postId=5930]]