MathGroup Archive 1996

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Pairings


Robert Pratt <rpratt at math.unc.edu>
[mg4434] Pairings
writes

> I want a function that finds, given n, all pairings of Range[n]
> excluding {1,2}, {2,3}, {n-2,n-1}, and {n-1,n}........

Robert:
Needs["DiscreteMath`Combinatorica`"]

DeleteCases[KSubsets[Range[7],2], {a_,b_}/;b==a+1]//Timing
{0.05 Second,
{{1, 3}, {1, 4}, {1, 5}, {1, 6}, {1, 7}, {2, 4}, {2, 5}, {2, 6},
 {2, 7}, {3, 5}, {3, 6}, {3, 7}, {4, 6}, {4, 7}, {5, 7}}
}

Allan Hayes
hay at haystack.demon.co.uk

==== [MESSAGE SEPARATOR] ====


  • Prev by Date: differential equations
  • Next by Date: Re: Replacement
  • Previous by thread: Re: differential equations
  • Next by thread: Re: Replacement