Re: May the numbers speak - supplement

Paul Rubin wrote:

This version with the string in memory, no error checking, and using a
variable, seems simplest to me.
 
variable p
: advance ( -- ) 1 p +! ;
: digit ( -- n ) p @ c@ '0' - advance ;
: 2digit ( -- n ) digit 10 * digit + ;
: hms ( a u -- h m s ) drop p !
    2digit advance 2digit advance 2digit advance ;
: test clearstack  s" 12:34:56" hms ;
 
test .s

: keep { lo hi adr len } lo adr len ;
: get { adr len } 0. adr len >number keep 1 /string ;
: hms ( adr len -- h m s) get get get 2drop ;
: test clearstack s" 12:34:56" hms ;

test .s