skal lave en udregner til at finde 4 cifre der kan ligge mellem..

#!/usr/bin/env python
def solution ():
    import random
    z = [ x for x in range(1,10) ]
    Solution  = []
    for y in range(4):
        x =  random.choice( z )
        z.remove( x )
        Solution.append(x)
    return Solution
if __name__ == "__main__":
    print solution()

Dim i As Long, j As Long, lTmp As Long, bOK As Boolean

    Randomize
    For i = 1 To 4
        lOrgNum(i) = 0
        Do
            bOK = True
            lTmp = Int((9 * Rnd) + 1)
            For j = 1 To 4
                If j <> i And lTmp = lOrgNum(j) Then
                    bOK = False
                    Exit For
                End If
            Next j
        Loop Until bOK
        lOrgNum(i) = lTmp
    Next i

Dette er en 'blunt force' metode, men da det drejer sig om så få tal, og alle PC'ere i dag er rigeligt hurtige, så er det langt det nemmeste.

Med hensyn til at checke gæt er det rimeligt simpelt:

Denne funktion tager et (1 To 4) Long Array som input, og sammenligner det med lOrgNum-Arrayet.
Der outputtes et (1 To 4) String Array, der indeholder A, B eller C (C er forkert nummer).

Private Function CheckNumbers(ByRef lGuess() As Long) As String()
    Dim i As Long, j As Long, sAnswer(1 To 4) As String
   
    For i = 1 To 4
        sAnswer(i) = "C"
        For j = 1 To 4
            If lGuess(i) = lOrgNum(j) Then sAnswer(i) = "B"
            If lGuess(i) = lOrgNum(j) And i = j Then sAnswer(i) = "A"
        Next j
    Next i
    CheckNumbers = sAnswer

End Function

Da jeg kan forstå at du ikke har megen erfaring med Visual Basic, har jeg lavet et lille testprogram du kan hente her: http://www.home1.stofanet.dk/5soft/v9cxjk4l/MM-Eksp.zip

tjacob, ikke for være på nakken, men hvor har du fra at "alle" pc er er rigelig hurtigt, nu kender jeg personligt et par stykker som ikke har særlige hurtige maskiner dvs.  450 mhz og derunder.

hej tjacob tror vi har misforstådet hinnanden lidt...

her er et link til det program jeg omtalte som jeg ikke kunne burge men skulla have et der næsten var meneg til bortset fra det kun skulle gå fra (1-9) i stedet fro (0-9)

http://pyva.net/eng/pc/bk.html

og det med erfaring kan jeg det svære sige det eneste erfaring jeg har er fra mersk data defence i sønderborg hvor jeg ahr lavet en masse afskrift uden vidre at forstå det...:( og det var så i c++

>>thomaxz:  Jeg mente blot at PC'erne er rigeligt hurtige til denne opgave. Selv med en 200 MHz maskine vil de 4 tal være genereret i løbet af få millisekunder.
Min pointe var blot at hvis det skal gøres helt korrekt, så skal tallene ikke lægges tilbage efter efter de er genereret. Dette kan sagtens gøres med en længere kode, men jeg mente ikke at det var nødvendigt i dette tilfælde.

>>gummi-manden: Du har ret, jeg misforstod dig lidt. For at blive som i det link du gav, så skal Check funktionen blot rettes til:

Private Function CheckNumbers(ByRef lGuess() As Long) As Long()
    Dim i As Long, j As Long, lAnswer(1 To 2) As Long
   
    For i = 1 To 4
        For j = 1 To 4
            If lGuess(i) = lOrgNum(j) Then lAnswer(2) = lAnswer(2) + 1
            If lGuess(i) = lOrgNum(j) And i = j Then lAnswer(1) = lAnswer(1) + 1
        Next j
    Next i
    CheckNumbers = lAnswer

End Function

Nu outputter den et (1 To 2) Long Array, hvor (1) indeholder antal rigtige tal på rigtig placering, og (2) indeholder antal rigtige tal på forkert placering.

Jeg har opdateret linket, således at testprogrammet er rettet.

For en god ordens skyld er der her en funktion der genererer 4 forskellige tal UDEN tilbagelægning (altså IKKE 'blunt force') Og den er rent faktisk ikke længere end den jeg beskrev 02/06-2007 14:30:33  ;)
Den outputter et (1 To 4) Long Array:

Function Find4Tal() As Long()
    Dim lOrgTal(1 To 4) As Long, lTmpTal(8) As Long
    Dim i As Long, lAktuelTal As Long, lTilbage As Long
   
    For i = 0 To 8
        lTmpTal(i) = i
    Next i
    Randomize
    lTilbage = 9
    For i = 0 To 3
        lAktuelTal = Int(lTilbage * Rnd)
        lOrgTal(i + 1) = lTmpTal(lAktuelTal) + 1
        lTilbage = lTilbage - 1
        lTmpTal(lAktuelTal) = lTmpTal(lTilbage)
    Next i
    Find4Tal = lOrgTal

End Function

tjacob>>
Hmmm....
ved ikke hvormeget du har kigget på BK.exe det jeg kna forstå er at den siger prøv en her og fortel mig hvormange der er rigtigt placeret og hvormange der er rigte men placeret forkert...

tænkte på om der er en måde vi kan skives privat?
hvis du gider hjælpe mere med dette problem!

Ja, nu fungerer det nøjagtigt som BK.exe...

Der er dog en lille fejl i checkfunktionen, den skal rettes til:

    For i = 1 To 4
        For j = 1 To 4
            If lGuess(i) = lOrgNum(j) And i <> j Then lAnswer(2) = lAnswer(2) + 1
            If lGuess(i) = lOrgNum(j) And i = j Then lAnswer(1) = lAnswer(1) + 1
        Next j
    Next i
    CheckNumbers = lAnswer

Du er da velkommen til at skrive til mig, men en eventuel løsning skal være tilgængelig for alle iflg. Ekspertens regler.
Du kan skrive til mig på: tjacob (her snabela) stofanet (her punktum) dk

Her er en løsning i cherrypy
http://www.databassen.dk:8090/bauerdata/python-program-eksempler/mastermind.py