Re: split
- To: mathgroup at smc.vnet.net
- Subject: [mg73702] Re: split
- From: "Dana DeLouis" <dana.del at gmail.com>
- Date: Sun, 25 Feb 2007 04:32:35 -0500 (EST)
Just another option might be "UnitStep"
rule = UnitStep[3 - #1] == UnitStep[3 - #2] & ;
which is...
rule = Equal @@ UnitStep[3 - {#1, #2}] & ;
z = {1, 3, 2, 3, 3, 6, 3, 3, 4, 7, 5, 1, 7};
Split[z, rule]
{{1, 3, 2, 3, 3}, {6}, {3, 3}, {4, 7, 5}, {1}, {7}}
--
Dana DeLouis
Windows XP & Mathematica 5.2
<Arkadiusz.Majka at gmail.com> wrote in message
news:erjo7l$nrf$1 at smc.vnet.net...
> Hi,
>
> I want to split a list, say
>
> z = {1, 3, 2, 6, 4, 7, 5,1,7};
>
> into sublist of elements that are less or equal 3.
>
> so I want to obtain
>
> {{1,3,2},{6,4,7,5},{1},{7}}
>
> How to do it? Probably by applying Split, but what to put in Test?
>
> Split[z,#<=3&] gives :
>
> {{1, 3, 2, 6}, {4}, {7}, {5}, {1, 7}}
>
> Why 6 was put in first sublist together with 1, 3, and 2 since 6>3 and
> should be together with 4 in the second sublist?
>
> Thanks,
> Arek