simultaneous ... and ___
- To: mathgroup at smc.vnet.net
- Subject: [mg60863] simultaneous ... and ___
- From: "borges2003xx at yahoo.it" <borges2003xx at yahoo.it>
- Date: Fri, 30 Sep 2005 06:38:01 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
i have a function m
Clear[m]
m[{___, x1__ , x2___ , x3___ , ___, x3___ , x2___ ,
x1__ , ___}] := {} /; (Length[{x1}] + Length[{x1}] +
Length[{x1}]) = 5
m[l_] := l
which transform every string in which three sublists are followed by
the three in reverse order, and the total of length of three are >=5.
Everything seems to works
now i want consider the same three sublists in which is permitted also
the repetition one or more times.
Clear[m1]
m1[{___, x1__ .., x2___ ..., x3___ ..., ___, x3___ ..., x2___ ...,
x1__ .., ___}] := {}
m1[l1_] := l1
and all seem to work
m[{0, 1, 1, 2, 2, 2, 3, 4, 3, 3, 3, 3, 2, 1, 1, 1, 1, 8}]
gives {}
but if i add the length
m1[{___, x1__ .., x2___ ..., x3___ ..., ___, x3___ ..., x2___ ...,
x1__ .., ___}] := {}
/; (Length[{x1}] + Length[{x1}] + Length[{x1}]) >= 15
m1[l1_] := l1
dont work
m[{0, 1, 1, 2, 2, 2, 3, 4, 3, 3, 3, 3, 2, 1, 1, 1, 1, 8}]
gives
m[{0, 1, 1, 2, 2, 2, 3, 4, 3, 3, 3, 3, 2, 1, 1, 1, 1, 8}]
if i change 15 with 6 for length
dont work
can anyone help me?