Finding pattern Matched series

*To*: mathgroup at smc.vnet.net*Subject*: [mg33051] Finding pattern Matched series*From*: Jari Curty <jabidof at yahoo.fr>*Date*: Wed, 27 Feb 2002 00:48:12 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

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