Discussion :

[parsy]

Peut-on passer une subroutine à une subroutine.

j'ai une subroutine fct1 définie par:

Code :

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

1
2
3
4
sub fct1 {
    my ( $x ) = @_ ;
    return 2 * $x + 1 ;
}

et une autre fct2 définie par:

Code :

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

1
2
3
4
sub fct2 {
    my ( $x ) = @_ ;
    return 3 * $y + 5 ;
}

je souhaite obtenir

Code :

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

(fct1(a)+fct1(b))/2

et

Code :

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

(fct2(a)+fct2(b))/2

en appelant une foction moyenne

Code :

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

moyenne($a,$b,&fct1)

et

Code :

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

moyenne($a,$b,&fct2)

Est-ce possible et comment ?

Merci de votre aide.

[djibril]

Il faut jouer avec les références :

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
#!/usr/bin/perl
use warnings;
use strict;
 
 
print moyenne(2,3,\&fct1);
 
sub fct1 {
    my ( $x ) = @_ ;
    return 2 * $x + 1 ;
}
 
sub fct2 {
    my ( $y ) = @_ ;
    return 3 * $y + 5 ;
}
 
sub moyenne {
  my ($a, $b, $ref_fonction) = @_;
 
  return ( $ref_fonction->($a) + $ref_fonction->($b) ) / 2;
}

Voici une documentation sur les références et fermetures.

[parsy]

Merci beaucoup Djibril

[Philou67430]

Exactement dans le même esprit que la solution de Djibril, il est possible d'utiliser des "fermetures" (closure en anglais), c'est à dire des fonctions anonymes dont on récupère une référence :

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
#!/usr/bin/perl
use warnings;
use strict;
 
my $fct1 = sub {
    my ( $x ) = @_ ;
    return 2 * $x + 1 ;
}
 
my $fct2 = sub {
    my ( $y ) = @_ ;
    return 3 * $y + 5 ;
}
 
sub moyenne {
  my ($a, $b, $ref_fonction) = @_;
 
  return ( $ref_fonction->($a) + $ref_fonction->($b) ) / 2;
} 
 
print moyenne(2, 3, $fct1);