Re: Simple list operation
- To: mathgroup at smc.vnet.net
- Subject: [mg59453] Re: Simple list operation
- From: "Carl K. Woll" <carlw at u.washington.edu>
- Date: Wed, 10 Aug 2005 02:56:22 -0400 (EDT)
- Organization: University of Washington
- References: <dd9mte$isv$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Steve Gray wrote:
>
> Not having used Mathematica for months, I have forgotten some of the
> little I knew.
>
> I have a list of lists like this:
>
> test = { {{4, 5}, {5, 9}, {6, 2}},
> {{2, 3}, {3, 5}},
> {{7,1}, {9, 8}, {0, 7}, {2, 8}},
> {{4, 3}, {6, 5}}};
> test // ColumnForm
> {{{4, 5}, {5, 9}, {6, 2}},
> {{2, 3}, {3, 5}},
> {{7, 1}, {9, 8}, {0, 7}, {2, 8}},
> {{4, 3}, {6, 5}}}
>
> What I want to do is just remove the last element in each sublist, with
> this result:
>
> {{{4, 5}, {5, 9}},
> {{2, 3}},
> {{7, 1}, {9, 8}, {0, 7}},
> {{4, 3}}}
>
> There must be some simple functional way to do this, but I haven't found
> it.
> I will appreciate any tips. Thank you.
>
> Steve Gray
>
One possibility is
Drop[test,0,-1]
Carl Woll
Wolfram Research