MathGroup Archive 2013

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

Search the Archive

combinations problem


Hi
i want to select 6 combinations from numbers 1 to 49 with condition that its sum equal 152, the following code works but its timing is 157 seconds on windows xp mathematica v 8. can we make this timing shorter ?
Select[Subsets[Range[49],{6}],Total[#]==152&]


  • Prev by Date: sorting problem
  • Next by Date: Re: Wrong Answer
  • Previous by thread: Re: sorting problem
  • Next by thread: Re: combinations problem