       Re: Finding pattern Matched series

• To: mathgroup at smc.vnet.net
• Subject: [mg33075] Re: Finding pattern Matched series
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Fri, 1 Mar 2002 06:51:27 -0500 (EST)
• Organization: Universitaet Leipzig
• References: <a5ht5a\$hrq\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hi,

for the first pattern  with {{q1_, x_}, {x_, q2_}} and 1<=q1<=6
the command should work

Select[Partition[T, 2,
1], (MatchQ[#, {{_, x_}, {x_, _}}] && 1 <= First[First[#]] <= 6) &]

the second pattern would be {{q1_, x_}, {x_, y_}, {y_, q2_}}

Select[Partition[T, 3, 2], (MatchQ[#, {{q1_, x_}, {x_, y_}, {y_, q2_}}]
&& 1 <= First[First[#]] <= 6)&]

and so on.

Regards
Jens

Jari Curty wrote:
>
> Dear Mathgroup,
>
> Here is the problem:
>
> Given the following list T = {{1, 2}, {3, 4}, {2, 3}, {5, 6}, {4, 5}, {6,
> 4}, {4, 1}} extract ALL the series of the following form:
>
> {{#, x_}, {x_, #}}
> {{#, x_}, {x_, y_}, {y_, #}}
> {{#, x_}, {x_, y_}, {y_, z_}, {z_, #}}
> etc...
>
> for the for the value # in Range[Max[T]].
>
> I guess it is a subtle mixture between Patterns and Maps but I can see it :-
> (
>
> Thanks for your appreciated help!
>
> Jari

```

• Prev by Date: No more memory Re: Large Files
• Next by Date: MathLink and lists
• Previous by thread: No more memory Re: Large Files
• Next by thread: Re: Finding pattern Matched series