Hmmm. They all sum to 15.
Select[KSetPartitions[r,3], Equal@@Total/@#1 &]
{{1,5,9},{2,6,7},{3,4,8}},
{{1,5,9},{2,3,4,6},{7,8}},
{{1,6,8},{2,4,9},{3,5,7}},
{{1,2,3,9},{4,5,6},{7,8}},
{{1,2,4,8},{3,5,7},{6,9}},
{{1,2,5,7},{3,4,8},{6,9}},
{{1,3,4,7},{2,5,8},{6,9}},
{{1,3,5,6},{2,4,9},{7,8}},
{{1,2,3,4,5},{6,9},{7,8}}
(Math Program)
--
Dana DeLouis
"Bernard Liengme" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Peter,
> Not to be a grump on such a sunny day (in Nova Scotia) but you are
> depriving daughter of a chance of discovering the fun of math! Let her
> look at this and see if she can find more. Give her 9 pieces of paper with
> digits 1 thru 9, and three plates. Then go play golf.
>
> sum Any three of these ways
> 5 5 4+1 2+3 1
> 6 6 5+1 4+2 1
> 7 7 6+1 5+2 4+3 4
> 8 8 7+1 6+2 5+3 4
> 9 9 8+1 7+2 6+3 5+4 10
> 10 9+1 8+2 6+4 1
> 10 9+1 6+4 5+3+2 1
> 11 9+2 8+3 7+4 6+5 4
> 12 9+3 8+4 7+5 6+4+2 4
> 13 9+4 8+5 7+6 7+3+2+1 4
> 14 9+5 8+6 7+4+3 7+4+2+1 4
> 15 9+6 8+7 1+2+3+4+5 1
>
> best wishes
> --
> Bernard V Liengme
> www.stfx.ca/people/bliengme
> remove caps from email
>
> "Peter T" <peter_t@discussions> wrote in message
> news:(E-Mail Removed)...
>> This is shameless I know, but I'm stuck with my daughter's homework
>> question. Here's the question -
>>
>> "Nine eggs numbered 1 to 9. Put the nine eggs into three baskets. The
>> total
>> of the numbers on the eggs in each basket must be the same. How many
>> different ways are there to do it?"
>>
>> As it's not stated to the contrary, I assume each basket can contain any
>> number of eggs, though each basket must contain at least one egg and
>> hence a
>> maximum of seven eggs.
>>
>> No doubt can be solved with VBA, but here's the rub - this is for a
>> twelve
>> year! There's got to be a catch ?
>>
>> Anyone interested in a virtual merit...
>>
>> Regards,
>> Peter T
>>
>>
>
>