🚀 go-pugleaf

Czarek pisze:
> Czarek pisze:
> 
>> Jak prosto to zaprogramować? Niby można za pomocą 6 zagnieżdżonych 
>> pętli, ale przy dopisaniu liczby może zajść konieczność modyfikacji 
>> tekstu programu i ponownej kompilacji.
> 
> Miałem na myśli, że trzeba użyć 2,3,4,5 i 6  pętli, żeby wybierać 
> zestawy liczące 2,3 .. 6 liczb. Coś w stylu
> for a := 1 to ilosc - 1 do
>   for b := a + 1 to ilosc do
>     begin
>       sumowanie;
>     end;
> 
> dla sumowania zestawu 2 liczb. Dla 3 - 3 pętle itp.
> 
> Może ktoś ma bardziej elegancki pomysł, aby nie rekurencyjnie, maszynka 
> nie podoła.
> 

Już sobie z tym poradziłem.
Sortuje dane wejściowe, sumuje po kolei od najmniejszej do przekroczenia 
załozonej sumy i już wiem ile maksymalnie danych trzeba wybrać ze zbioru 
wejściowego.
Potem już tylko w pętli

    for k :=1 to mk do
        kombinacje(n,k);

Czas wykonania spadł 50..60 razy (dla 35 liczb).
Na razie do przyjęcia, ale mam kolejny pomysł. Jeśli wybieram zbiory 2 
elementowe i suma najmniejszej i najwiekszej liczby jest za duża, to 
mogę śmiało wywalić z danych wejściowych największą  liczbę. Jesli 3 
elementowe sprawdzam sumę 2 najmniejszych i największą. Myślę, że to 
może też znacznie przyspieszyć.
Czy tu ktoś zagląda?

Pozdrawiam

-- 
Cezary Grądys
czarekgr@wa.onet.pl