Anonymous user
Time a function: Difference between revisions
→{{header|Forth}}
Line 101:
{{works with|GNU Forth}}
: time: ( "word" -- )
utime 2>R ' EXECUTE
utime 2R> D-
<# # # # # # # [CHAR] . HOLD #S #> TYPE ." seconds" ;
| |||
Line 101:
{{works with|GNU Forth}}
: time: ( "word" -- )
utime 2>R ' EXECUTE
utime 2R> D-
<# # # # # # # [CHAR] . HOLD #S #> TYPE ." seconds" ;
| |||