630751_zh-CN

liliconcom

Re: 是否可以传递对函数的引用？

没有通过引用传递的简单方法，但可以将函数和数据封装在类或命名空间中，并传递对象指针或命名空间名称。 看看上面的图片使用 JSL 对象的函数式编程了解这如何适用于课堂。

 

Re: 是否可以传递对函数的引用？

我经常使用这样的东西，根据我的经验，使用名称表达式()功能运作良好。从另一个函数返回一个函数时可能会很棘手，并且@Craige_Hales方法通常是更好的选择。

 

我在 Qt 方面有广泛的背景，非常感谢他们的信号/槽——我在 JSL 中创建了一些非常相似的东西，有必要通过引用来穿梭函数，而使用名称空间/类包装器来实现它不太实用，所以我使用了一些非常类似于此。

 

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

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

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

Re: 是否可以传递对函数的引用？

这看起来确实更简单，也更容易理解。 有一种权衡只会对被多次调用的大型函数产生影响。 NameExpr 正在克隆函数的表达式树，并传递副本，而不是引用。 除了计时之外，我认为没有任何方法可以告诉它是副本还是参考（就像您可以对返回时未修改的数组一样）：

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

当 0;0;0; 时，大型函数的 ~2x 性能提升消失了。删除了虚拟语句；对于您可能以类似 Qt 的方式使用的短函数，它不会有什么不同。

 

是否可以传递对函数的引用？

例如，当我运行此脚本时：

 

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

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

executor( someFunc, "this string" )

我收到一个错误，这似乎意味着当我打算将对 someFunc 的引用传递给执行程序时我正在调用它。

 

我可以通过在调用中定义函数来传递引用，例如

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

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

输出：

"wut"
"anonymous function"

这完成了我所需要的，但是能够使用变量名传递函数会很方便。

高级统计建模自动化和脚本编写消费者和市场研究质量和工艺工程回复：是否可以传递对函数的引用？

我在哪里可以找到有关的更多文档通过引用选项？
啊。

回复：是否可以传递对函数的引用？

@hogi - 抱歉，我确实把重要的部分埋在了代码中间！ 对于其他人来说，

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

正在创建一个名为的类定义通过引用和该类的一个实例名为一些函数引用。 该实例是 mFn 的包装器，它包含一个克隆一些函数。 但这个克隆会被一次又一次地重复使用，而不会产生更多的克隆。 执行者在这里进行调用

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