Re: May the numbers speak - supplement

On 13/06/2025 6:42 am, Paul Rubin wrote:

mhx@iae.nl (mhx) writes:

It doesn't do the same thing. It isn't faster, which points out
the '60 *' and 'M* D+' are not the limiting factors.

 
Oh I copied the interface from another post, didn't realize it was
supposed to convert to seconds.  I didn't care about the speed since any
slowness in any of these versions can be blamed on the compiler ;).
Here is another version:
 
variable p
: advance 1 p +! ;
: digit ( -- n ) p @ c@ '0' - advance ;
: 2digit ( -- n ) digit 10 * digit + advance ; \ skips trailing colon
: hms ( a u -- n ) drop p !   2digit 60 * 2digit + 60 * 2digit + ;
: test clearstack  s" 12:34:56" hms ;
 
test .s

At least the variable is being used across words as opposed to within.
One may debate whether the factoring was worth it.