Path: news.eternal-september.org!eternal-september.org!feeder3.eternal-september.org!i2pn.org!i2pn2.org!.POSTED!not-for-mail
From: dxf <dxforth@gmail.com>
Newsgroups: comp.lang.forth
Subject: Re: May the numbers speak - supplement
Date: Fri, 13 Jun 2025 14:46:54 +1000
Organization: i2pn2 (i2pn.org)
Message-ID: <f0afd2a96800329381638d089d9e958287a596d0@i2pn2.org>
References: <20129e22c76a2b18b0a745e9499cbd9b@www.novabbs.com>
 <nnd$673c55b0$2ad8f129@7aad895b352201b7>
 <cc0a8c7a3216f3ed508bde73fc8bd422@www.novabbs.com>
 <feed5481a2c6f29340546fbefb23bb31@www.novabbs.com>
 <37a6f52a3ab1ec533fcf7ef30beb1022@www.novabbs.com>
 <nnd$673c55b0$2ad8f129@52950e570341256b>
 <7c15e1538a1604ad3c7a293ae6196da2530cd1a4@i2pn2.org>
 <87zfed2sbn.fsf@nightsong.com> <102fk3b$2ut8q$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit
Injection-Date: Fri, 13 Jun 2025 04:46:53 -0000 (UTC)
Injection-Info: i2pn2.org;
	logging-data="283310"; mail-complaints-to="usenet@i2pn2.org";
	posting-account="XPw7UV90Iy7EOhY4YuUXhpdoEf5Vz7K+BsxA/Cx8bVc";
User-Agent: Mozilla Thunderbird
X-Spam-Checker-Version: SpamAssassin 4.0.0
In-Reply-To: <102fk3b$2ut8q$1@dont-email.me>
Content-Language: en-GB

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 ;