Re: May the numbers speak - supplement

On 13/06/2025 8:24 am, B. Pym wrote:

: 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 ;

Not worth the locals IMO.  OTOH I guarantee (number) will be re-used.

: (number) ( adr len -- ud adr' len' )  0. 2swap >number ;
: get ( adr len -- u adr' len' )  (number) rot drop 1 /string ;
: hms ( adr len -- h m s)  get get get 2drop ;
: test  clearstack s" 12:34:56" hms ;