Pomoc oko permutacija

Pomoc oko permutacija 23.05.2011. u 20:36 · pre 188 meseci #1

Ljudi pomagajte zapeo sam...

Imam jedan skup npr. {1,2,3,4} , e sad treba da isipisem sve brojeve koji pocinju sa npr. 1. pa treba da dobijem:

Code:
1
12,13,14
123,124,134
1234

E to sad i ne bi bio problem, zavrtim to kroz 4 petlje i eto ga, ali kako to napraviti za skup od n brojeva, a da ne vrtim kroz n petlji :-( ?

Re: Pomoc oko permutacija 23.05.2011. u 22:47 · pre 188 meseci #2

Mogao bi rekurzijom. Za svaki element niza imas njega + ta ista funkcija sa nizom bez tog elementa.

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: Pomoc oko permutacija 23.05.2011. u 23:24 · pre 188 meseci #3

Nisam bas razumio?

Re: Pomoc oko permutacija 23.05.2011. u 23:44 · pre 188 meseci #4

Huh, nemam vb, a nije bas da se secam sintakse dovoljno da bih ovako napamet.. Probacu malo detaljnije opisno.
Dakle, imas funkciju koja prima niz brojeva.
Ides For Each kroz taj niz. Unutar foreach ispisujes taj broj i pozivas ponovo tu funkciju sa novim nizom koji je prekopiran stri samo sa izbacenim trenutnim brojem.

Jedino je malo smor sto moras praviti nove nizove ali sta je tu je :)

Aj' ako se nismo skontali jos uvek, javi pa cu ispisati kod.

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: Pomoc oko permutacija 25.05.2011. u 00:20 · pre 187 meseci #5

Jos ja nisam provalio taj tvoj fazon, al smisljam neki svoj, sa nekim brojacima. Sad imam nov problem kada zelim redimenzionisati svoj niz izbacuje mi gresku "out of memory", ali to je off topic :(

Code:
Dim niz()

Private Sub Command1_Click()
Dim BrClanova As Double
BrClanova = 2 ^ 30
ReDim niz(BrClanova, 1)
End Sub

E sad znam ja da je 2 na 30-tu zaista puno, al mi treba toliki niz pa cak i veci i do 2 na 200, jel ima kakavo rjesenje?

Re: Pomoc oko permutacija 25.05.2011. u 07:46 · pre 187 meseci #6

Cek, ti hoces da ispies sve kombinacije elemenata niza sa 2^30 clanova? To ce trajati kao pronalazenje odgovora na pitanje zivota vaseljene i svega ostalog :)
I 30 clanova je mnogo a kamoli 2^30.

Code:

Private sub IspisiKombinacije(niz as integer())
    if len(niz) > 0 then
        for i = 1 to len(niz)
            console.write(len(i))
            dim NoviNiz as Integer(len(niz)-1)
            'kopiraj sve clanove iz niz u NoviNiz osim i-tog clana
            IspisiKombinacije(NoviNiz)
        next
    else
        console.writeline("")
    end if
end sub

Verovatno sam ponegde izgresio u sintaksi i ovo kopiranje niza nisam uradio, ali valjda je dovoljno da se shvati poenta :)
Znam da u vb6 nema console, al' umesto toga stavi sta ti vec odgovara.

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Forum kao aplikacija na telefonu

Srodne teme