Re: Puzzle
- To: mathgroup at smc.vnet.net
- Subject: [mg2285] Re: [mg2258] Puzzle
- From: Don Piele <piele at cs.uwp.edu>
- Date: Mon, 23 Oct 1995 12:39:39 -0400
On Thu, 19 Oct 1995, Will Self wrote:
> Here's a nice puzzle. Find the four numbers in the following sequence
> which total 100: {6, 44, 30, 15, 24, 12, 33, 23, 18}. It would seem that
> there might be a nice way to do this with Mathematica. Any takers?
>
> Will Self
> Billings, Montana
>
>
Sure.
Construct all 4 element subsets with KSubsets.
Select those who sum to 100.
Needs["DiscreteMath`Combinatorica`"]
Select[KSubsets[{6, 44, 30, 15, 24, 12, 33, 23, 18},4],
#[[1]]+#[[2]]+#[[3]]+#[[4]]==100&]
Out[1]=
{{44, 15, 23, 18}}
D. Piele