Re: Simple list operation
- To: mathgroup at smc.vnet.net
- Subject: [mg59435] Re: Simple list operation
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Wed, 10 Aug 2005 02:55:16 -0400 (EDT)
- Organization: Uni Leipzig
- References: <dd9mte$isv$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi, Most /@ test ?? If your Mathematica has no Most[] Drop[#,-1] & /@ test will do it. Regards Jens "Steve Gray" <stevebg at adelphia.net> schrieb im Newsbeitrag news:dd9mte$isv$1 at smc.vnet.net... | | 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 |