Discussion :

[NairodDorian]

Bonjour,

Je suis de nouveau confronter à un problème.
Je sais que le FORTRAN passe par défaut les paramètres par référence et je voudrai savoir si il est possible de les faires passer par valeurs.

Par exemple pour un algo MinMax :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
RECURSIVE FUNCTION MINMAX(TREE, LEN_TREE, PLAYER, DEPTH) RESULT(BESTSCORE)
 
...
 
END FUNCTION

J'aimerai que les paramètres LEN_TREE, PLAYER et DEPTH soient passé par valeur et pas par référence, est-ce possible ?

Merci d'avance...

[Sylvain Bergeron]

Pas vraiment possible. D'ailleurs, même le passage par référence n'est pas défini dans le langage. Ce dernier défini le comportement d'un programme, mais pas la méthode effective de passage des paramètres. En pratique, tous les compilateurs, je crois, utilisent le passage par référence, mais ça fait parti de « l'implementation », pas du langage.

Les seuls cas où on peut passer des arguments « by value », c'est quand on fait du « mix-language » et c'est fortement variable d'un compilateur à l'autre. Avant de te lancer sur cette piste, tu dois t'assurer que c'est bien ce que tu veux...

Si tu veux avoir des arguments par valeurs pour protéger les valeurs d'un code récursif, tu n'as pas à faire explicitement du passage par valeur. Le langage permet de le faire facilement. Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
   subroutine MergeSort(List)
      type (TSortData), intent(inout) :: List(:)
      type (TSortData) :: Temp(size(List))
 
      call MergeSortSub(1,size(List))
 
   contains
 
      recursive subroutine MergeSortSub(First,Last)
         integer, intent(in) :: First,Last
 
         integer Middle
 
         if (First < Last) then
            Middle = (First + Last) / 2
            call MergeSortSub(First, Middle)
            call MergeSortSub(Middle+1, Last)
            call MergeSub(First, Middle, Last)
         endif
         end subroutine MergeSortSub
 
      subroutine MergeSub(First, Middle, Last)
         integer, intent(in) :: First,Last, Middle
 
         integer k1, k2, k
 
         k1 = First
         k2 = Middle + 1
         k = First
 
!         write(0,*) 'MergeSub:',First,Middle,Last
 
         do while(k1 <= Middle .and. k2 <= Last)
            if (List(k1) < List(k2)) then
               Temp(k) = List(k1)
               k1 = k1 + 1
            else
               Temp(k) = List(k2)
               k2 = k2 + 1
            endif
            k = k + 1
         enddo
 
         do while(k1 <= Middle)
            Temp(k) = List(k1)
            k1 = k1 + 1
            k = k + 1
         enddo
 
         do while(k2 <= Last)
            Temp(k) = List(k2)
            k2 = k2 + 1
            k = k + 1
         enddo
 
         do k = First, Last
            List(k) = Temp(k)
         enddo
 
         end subroutine MergeSub
      end subroutine MergeSort

[NairodDorian]

Ok merci mais je ne vois pas trop comment faire avec mon code qui est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
! En fait AlphaBeta
    RECURSIVE FUNCTION MINMAX(TREE, NUMBEROFELEMENTS, PLAYER, DEPTH, DEPTH_M, ALPHA, BETA) RESULT(BESTSCORE)
 
        IMPLICIT NONE
 
        ! Parametres
        TYPE (POINT) TREE(NUMBEROFELEMENTS)     ! On crée l'arbre une seule fois
        INTEGER NUMBEROFELEMENTS
        INTEGER PLAYER
        INTEGER DEPTH
        INTEGER DEPTH_M
        INTEGER ALPHA
        INTEGER BETA
        INTEGER BESTSCORE
 
        ! Variables locales
        INTEGER I
        INTEGER CURRENTSCORE
 
        ! Profondeur nulle ou plateau plein
        IF (DEPTH <= 0 .OR. FULL()) THEN
            BESTSCORE = 0
            RETURN
        END IF
 
        ! On parcourt l'arbre entier
        DO I = 1, NUMBEROFELEMENTS, 1
 
            IF (GAMEBOARD(TREE(I).X, TREE(I).Y) == EMPTY) THEN
 
                CALL PLAY(PLAYER, TREE(I))
                CURRENTSCORE = -MINMAX(TREE, NUMBEROFELEMENTS, OPPONENT(PLAYER), DEPTH - 1, DEPTH_M, -BETA, -ALPHA)
                CALL UNPLAY(TREE(I))
                IF (CURRENTSCORE >= ALPHA) THEN
                    ALPHA = CURRENTSCORE
                    IF (DEPTH == DEPTH_M) THEN
                        BESTMOVE = TREE(I)
                    END IF
                    IF (ALPHA >= BETA) THEN
                        EXIT
                    END IF
                END IF
 
            END IF
 
        END DO
 
        BESTSCORE = ALPHA
        RETURN
 
    END FUNCTION

De plus j'ai une erreur à la ligne Alpha = CurrentScore après le test et je pense aussi que mon compilateur intel passe les paramètres par référence dont je ne protège pas le contenu de mes variables dans ce code récursif.
Je suis vraiment perdu là...

A l'aide

[Grame]

Je vais me faire de la pub

Tu peux récupérer les sources du jeu d'othello (goya.zip) que j'ai mais
dans les sources de ce forum et tu trouveras une fonction d'élagage alphabeta
qu'il te suffira t'arranger à ton idée.