[Delphi] Hoe beste functie schrijven die getallen

[Hu9o]

Hallo,

Ik kan hier wel een heel verhaal neer zetten, maar het wordt denk ik het snelst duidelijk als ik ff een voorbeeld neerzet.

code:

1e iteratie
result = 123456789

2e iteratie
result = 213456789

3e iteratie
result = 231456789

enz.

ik moet dus een functie maken die allemaal volgordes van de getallen langs gaat. zonder dat de getallen er dubbel in staan en altijd met 9 getallen.

nu kan dit op de volgendemanier gedaan worden:
begin situatie 123456789
bepaal pos(1) als die > 9 dan pos 1 ophogen en stuk voor nieuwe pos voor de 1 zetten en stuk na nieuwe pos achter de 1 zetten.

Daarna hetzelfde voor de 2 doen, enz.

Maar dit lijkt met nogal omslachtig. Daarom hier de vraag of iemand een beter idee heeft.


_{hopelijk is het zo een beetje begrijpelijk uitgelegd.}

[dusty]

Dit kan iteratief of recursief, het makkelijkste voor je is waarschijnlijk iteratief ( for lusjes )

Ik ruik echter mmm.. Huiswerk?

Probeer eerst eens een algoritme te bedenken waar je maar 3 getallen hebt.. 1 2 en 3 dan kan je namelijk nog controleren of al de oplossingen er zijn.

[WOmBaT]

Dat is niet zo moeilijk. Je weet voor jezelf welke stappen je moet nemen. Schrijf die stappen op. Kijk waar je begint en waar je stopt en wat je elke keer veranderd.

Resultaat:
een for-loop

Het is zo gedaan hoor.

[dusty]

Op maandag 27 mei 2002 22:09 schreef WOmBaT het volgende:
Resultaat:
een for-loop

Ik zou eerder zeggen meerdere for loops ... OF een for loop met een recursieve aanroep

[Hu9o]

jullie bedoelen dus dat ik het best een for loop kan gebruiken icm die manier die ik beschreven heb?

Maar die lijkt me zo omslachtig. Op de een of andere manier heb ik het gevoel dat het korter kan...

Toch ga ik het maar ff zo proberen.

alvast bedankt voor de reacties.

p.s. Nee het is geen huiswerk vraag. Dit doe ik voor de lol!!

[Hu9o]

Recursief aanroepen van een functie wil zeggen dat je in die functie een andere aanroep doet naar die zelfde functie.

Ok, dit vat ik ff niet helemaal. Je kan toch niet een functie aanroepen vanuit diezelfde functie

dit zou ik wel ff graag met een voorbeeld zien.

[Creepy]

Op maandag 27 mei 2002 22:13 schreef Hu9o het volgende:
jullie bedoelen dus dat ik het best een for loop kan gebruiken icm die manier die ik beschreven heb?

Maar die lijkt me zo omslachtig. Op de een of andere manier heb ik het gevoel dat het korter kan...

Toch ga ik het maar ff zo proberen.

alvast bedankt voor de reacties.

p.s. Nee het is geen huiswerk vraag. Dit doe ik voor de lol!!

Programmeren voor de lol?? Die is gek!

[Hu9o]

Op maandag 27 mei 2002 22:18 schreef Creepy het volgende:

[..]

Programmeren voor de lol?? Die is gek!

Bedankt voor je zinnige reply!

[whoami]

Op maandag 27 mei 2002 22:16 schreef Hu9o het volgende:

[..]

Ok, dit vat ik ff niet helemaal. Je kan toch niet een functie aanroepen vanuit diezelfde functie

dit zou ik wel ff graag met een voorbeeld zien.

Toch wel, dit is net recursie. Je roept in een functie dezelfde functie aan. Je moet er natuurlijk wel voor zorgen dat dit niet oneindig doorgaat, dus je moet ergens een voorwaarde hebben die het mogelijk maakt om de recursie te stoppen.

[dusty]

Voorbeeldje?
Pseudo code:

Macht( X , Y ) {
if (Y>1) dan return X*Macht( X , Y-1)
anders return X;
}

Macht (2,3) geeft;

2* Macht (2,2) ->
2* ( 2* Macht ( 2,1 ) ) ->
2* ( 2* ( 2 ) )

resultaat 8 .. wat dus betekent dat 2 tot de macht 3 uitkomt op 8.

Zie hier een recursieve functie

[Verwijderd]

Probeer het eens zo:

(ik spreek geen pascal, maar wel een algemene syntax taal. Vertaal het zelf dus even)


var x::vector (

do ( i=0 to 9)
x(1) = i
do (j=0 to 9)
if (j <> i) x(2)=j
do (k=0 to 9)
if (k<>i) & (k<>j) x(3)=k
do (k=0 to 9)
if (l<>i) & (l<>j) & (l<>k) x(4)=l

enz tot 9.

[Hu9o]

Weer wat geleerd!

En wat betreft dat voorbeeld. ik ga het morgen proberen. Moet nu toch wel goed komen.

(bijna)Iedereen bedankt!

[Lorn]

Een leuke oplossing die niet helemaal optimaal is er een met sets. Je ontkomt er dan bijna niet aan om dubbele mogelijkheden af te moeten vangen maar in de praktijk zal je qua snelheid niks nadeligs merken. Anders is een dynamische array de meest efficiente oplossing denk ik.

[Verwijderd]

edit:
Hier stond klinklare onzin, sorry jongens

[Lorn]

Moet je trouwens alle mogelijke combinaties hebben of wil je gewoon steeds opnieuw een willekeurige volgorde? De eerste situatie zou wel een stukje moeilijker zijn denk ik zo.

[Verwijderd]

Waarom klus je niet een swap-functie die gewoon 2 getallen omwisselt.
Je begint dan met een array met de waarden 1 t/m 9 en swapt er vrolijk (wel structureel, want je wilt alle oplossingen) op los.

code:

{pre: array[i] = a, array[j] = b}
swap(i,j) 
{post: array[i] = b, array[j] = a}

edit:

Op deze manier voorkom je dubbele getallen in je lijst zoals 112345678 (o.i.d.)

[jvdmeer]

beetje pseudo-code die werkt:

code:

   Tel x van 1 t/m n!
     Wis array met getallen
     Tel y van 1 tot n-1
     Plaats getal y op beschikbare plaats [x DIV y]
     Druk array met getallen af

Bij n= 4 krijg je iets als:
1234
2134
2314
2341
1324
3124
3214
3241
1432
4132
4312
4321
1243
2143
2413
2431
1342
3142
3412
3421
1423
4123
4213
4231