630751_fr-FR

liliconcom

Re : Est-il possible de passer une référence à une fonction ?

Il n'y a pas de moyen simple de passer par référence, mais vous pouvez encapsuler des fonctions et des données dans des classes ou des espaces de noms et passer le pointeur d'objet ou le nom de l'espace de noms. Regardez la photo en haut de Programmation fonctionnelle à l'aide d'objets JSL pour avoir une idée de comment cela pourrait fonctionner pour les classes.

 

Re : Est-il possible de passer une référence à une fonction ?

J'utilise beaucoup quelque chose comme ça, et d'après mon expérience, en utilisant le NomExpr() fonction fonctionne assez bien.Cela peut être délicat lors du retour d'une fonction à partir d'une autre fonction, et @Craige_Hales méthode est généralement un meilleur choix.

 

J'ai une vaste expérience de Qt et j'apprécie vraiment leurs signaux/emplacements - j'ai créé quelque chose d'assez similaire dans JSL et il est nécessaire de faire la navette entre les fonctions par référence et pas si pratique de le faire avec des wrappers d'espace de noms/de classe, donc j'utilise quelque chose de très semblable à celui-ci.

 

someFunc = Function( {arg},
 {},
 Print( "Within One Function" );
 Print( arg );
);

executor = Function( {fn, arg},
 {},
 Print( "Executing..." );
 fn( arg );
);

executor( Name Expr( someFunc ), "this string" )

Re : Est-il possible de passer une référence à une fonction ?

Cela semble plus simple et plus facile à comprendre. Il y a un compromis qui ne fera une différence que pour les grandes fonctions appelées beaucoup. NameExpr clone l'arborescence d'expressions pour la fonction et transmet la copie, pas une référence. Je ne pense pas qu'il y ait un moyen de dire qu'il s'agit d'une copie ou d'une référence (comme vous pouvez le faire pour les tableaux qui ne sont pas modifiés au retour) autre que de le chronométrer:

loops=1e5; // ~10 seconds/100K loops
print = (loops==1e0);
someFunc = Function( {arg}, {},
 If( print,
  Print( "Within One Function" );
  Print( arg );
 );
 Return( 0 );
 // this creates a stiff penalty for nameexpr  
 // needing to clone this function. These
 // statements are simple and never executed but still
 // must be copied to the nameExpr result by allocating
 // a bunch of memory objects.
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
);

/////////////////////////////////////
Write( "\!nUsing NameExpr" );
executor = Function( {fn, arg}, {},
 If( print,
  Print( "Executing for NameExpr..." )
 );
 fn( arg );
);
start = HP Time();
For( i = 1, i <= loops, i += 1,
 executor( Name Expr( someFunc ), "this string" )
);
stop = HP Time();

Show( stop - start ); // ~7 seconds

/////////////////////////////////////
Write( "\!nUsing class" );
Define Class(
 "PassByRef",
 mFn = .;
 _init_ = Method( {fn},
  mFn = Name Expr( fn )
 );
);
// grab the identical function into a reference object >>>>> requires JMP 17, a bug was fixed after 16.2
somefuncRef = New Object( PassByRef( Name Expr( someFunc ) ) );
<BR />/* for JMP < 17 use this work-around: <BR />somefuncRef = New Object( PassByRef( 0 ) );<BR />somefuncRef:mFn=Name Expr( someFunc );<BR />*/

/********** this also works and looks ... better?
somefuncRef = New Object( PassByRef( Function( {arg}, {},
 If( print,
  Print( "Within One Function" );
  Print( arg );
 );
 Return( 0 );
 // this creates a stiff penalty for nameexpr  
 // needing to clone this function. These
 // statements are simple and never executed but still
 // must be copied to the nameExpr result by allocating
 // a bunch of memory objects.
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
);
));
*********/



executor = Function( {fnRef, arg}, {},
 If( print,
  Print( "Executing for class..." )
 );
 fnRef:mFn( arg );
);
start = HP Time();
For( i = 1, i <= loops, i += 1,
 executor( somefuncRef, "this string" )
);
stop = HP Time();

Show( stop - start ); // ~3 seconds

L'amélioration des performances ~2x pour une grande fonction disparaît lorsque le 0;0;0; les déclarations factices sont supprimées ; pour les fonctions courtes que vous pourriez utiliser à la manière de Qt, cela ne fera aucune différence.

 

Est-il possible de passer une référence à une fonction ?

Par exemple quand je lance ce script :

 

someFunc = Function( {arg},
 {},
 
 Print( arg );
);

executor = Function( {fn, arg},
 {},
 
 fn( arg );
);

executor( someFunc, "this string" )

J'obtiens une erreur, qui semble impliquer que j'appelle someFunc lorsque j'ai l'intention de lui transmettre une référence à l'exécuteur.

 

Je suis capable de passer une référence en définissant la fonction dans l'invocation, par exemple

executor = Function( {fn, arg},
 {},
 
 Print(arg);
    fn();
);

executor( Function({}, {}, Print("anonymous function"); ), "wut" );

Les sorties:

"wut"
"anonymous function"

Ce qui accomplit ce dont j'ai besoin, mais il serait pratique de pouvoir passer des fonctions en utilisant leurs noms de variables.

Modélisation statistique avancéeAutomatisation et scriptÉtudes de consommation et de marchéIngénierie de la qualité et des procédésRe : Est-il possible de passer une référence à une fonction ?

Où puis-je trouver de la documentation supplémentaire sur PassByRef option?
argh.

Re : Est-il possible de passer une référence à une fonction ?

@hogi - désolé, j'ai en quelque sorte enterré le morceau important au milieu de ce code ! Pour quelqu'un d'autre,

Define Class(
 "PassByRef",
 mFn = .;
 _init_ = Method( {fn},
  mFn = Name Expr( fn )
 );
);
somefuncRef = New Object( PassByRef( Name Expr( someFunc ) ) );

crée une définition de classe nommée PassByRef et une instance de cette classe nommée somefuncRef . L'instance est un wrapper autour de mFn, qui contient un clone de certainsFunc . Mais ce clone est réutilisé encore et encore, sans créer d’autres clones. L'exécuteur testamentaire fait cet appel ici

executor = Function( {fnRef, arg}, {},
 If( print,
  Print( "Executing for class..." )
 );
 fnRef:mFn( arg );
);