Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Partitioning lists

• To: mathgroup at smc.vnet.net
• Subject: [mg20439] Partitioning lists
• From: "DIAMOND Mark" <noname at noname.com>
• Date: Tue, 26 Oct 1999 00:33:17 -0400
• Organization: The University of Western Australia
• Sender: owner-wri-mathgroup at wolfram.com

I would like a function f to split a list as follows

a={1,2,3,4,5,6}
f[a] =
  {
    {{1},{2,3,4,5,6}},
    {{1,2},{3,4,5,6}},
    {{1,2,3},{4,5,6}},
    {{1,2,3,4},{5,6}},
    {{1,2,3,4,5},{6}}
  }

I can do this as

      Table[{Take[a, i], Drop[a, i]}, {i, 1, Length[a] - 1}]

but it *looks* as though it is very inefficient. Is it?
It also looks as though there should be a way of using Partition simply to
chop a list between positions i and i+1, but
I cannot see how to do it. Any suggestions?


mark diamond
no spam email: markd at psy dot uwa dot edu dot au

• Follow-Ups:
  • Re: Partitioning lists
    • From: "Wolf, Hartmut" <hwolf@debis.com>