forth - 测量执行时间

Question

如何测量我的程序的执行时间？我找到了这个，但它对我不起作用，因为我的程序需要堆栈中的一些数字才能工作，所以我的程序和这个解决方案相互干扰（据我所知，因为当我尝试time: myfunc或time: num1 num2 myfunc没有任何工作时......）

: time: ( "word" -- )
  utime 2>R ' EXECUTE
  utime 2R> D-
  <# # # # # # # [CHAR] . HOLD #S #> TYPE ."  seconds" ;

谢谢你的帮助

Answer 1

勾选'将在调用之后立即解析文本time:。因此，对于带有参数的调用，它应该是num1 num2 time: myfunc

此外，滴答声将在运行时解析输入流。如果您在单词定义中调用time:嵌入，它将尝试从输入流中获取该单词的执行令牌，而不是紧随time:. 用于在编译时[']获取xt下一个单词，并将其xt作为参数传递给time:

: time ( xt -- )
  utime 2>R EXECUTE
  utime 2R> D-
  <# # # # # # # [CHAR] . HOLD #S #> TYPE ."  seconds" ;

: foo 0 1000000 0 do i + loop drop ;

: bar num1 num2 ['] foo time ; \ pass the foo's xt as argument to time

请注意，没有'调用 in time，EXECUTE它将从堆栈中获取令牌。