Path: news.eternal-september.org!eternal-september.org!feeder3.eternal-september.org!i2pn.org!i2pn2.org!.POSTED!not-for-mail
From: zbigniew2011@gmail.com (LIT)
Newsgroups: comp.lang.forth
Subject: OOS approach revisited
Date: Mon, 23 Jun 2025 05:09:47 +0000
Organization: novaBBS
Message-ID: <fdbeb48de8ceb748d44c67dc3981a566@www.novabbs.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: i2pn2.org;
	logging-data="1657932"; mail-complaints-to="usenet@i2pn2.org";
	posting-account="ovTHZ/VLht/KDF1nKqB7PmGhjiyfUdv/DKd8kGKFjRY";
User-Agent: Rocksolid Light
X-Rslight-Posting-User: 8e58c9b6d1da98b6162b84d03d2307a6516add15
X-Rslight-Site: $2y$10$u7AyqqdcvRKhlTExj5eTuOYh4yhABqWXmF2QURTNKVA3p.NGPJrN6
X-Spam-Checker-Version: SpamAssassin 4.0.0

1 VARIABLE X
2 VARIABLE Y
3 VARIABLE Z

: TEST1 1000 0 DO 10000 0 DO  X @ Y @ + Z !  LOOP LOOP ; ok
: TEST2 1000 0 DO 10000 0 DO  X Y Z +>  LOOP LOOP ; ok
TICKS TEST1 TICKS 2SWAP DMINUS D+ D. 121 ok
TICKS TEST2 TICKS 2SWAP DMINUS D+ D. 71 ok

: TEST1 1000 0 DO 10000 0 DO  1 X +! 1 Y +! X @ Y @ + Z !  LOOP LOOP ;
ok
: TEST2 1000 0 DO 10000 0 DO  X ++ Y ++  X Y Z +>  LOOP LOOP ; ok
TICKS TEST1 TICKS 2SWAP DMINUS D+ D. 217 ok
TICKS TEST2 TICKS 2SWAP DMINUS D+ D. 132 ok

'+>' moves a sum of two variables into body of the third one.

The results are rather promising, from one can see.

--