Path: ...!eternal-september.org!feeder3.eternal-september.org!i2pn.org!i2pn2.org!.POSTED!not-for-mail
From: melahi_ahmed@yahoo.fr (ahmed)
Newsgroups: comp.lang.forth
Subject: Re: Back & Forth - Co-routines
Date: Fri, 31 Jan 2025 16:30:35 +0000
Organization: novaBBS
Message-ID: <92db5c3ac1b10a4ae56c1fe5c558b72b@www.novabbs.com>
References: <nnd$2fb29a8e$298ef3f8@23fe4f00fa62d734> <9c16141dfe3c785e316678770e965566@www.novabbs.com> <nnd$1e8bdda8$517f1da6@703473522193e69c>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: i2pn2.org;
	logging-data="2047502"; mail-complaints-to="usenet@i2pn2.org";
	posting-account="t+/9LUKLIiUqIe6reyFE7me/EcA/Gr17dRXgwnADesE";
User-Agent: Rocksolid Light
X-Rslight-Posting-User: 5f6b2e70af503e44dad56966aa15d35bdef29623
X-Rslight-Site: $2y$10$APeZ4spTVg390zxbrWOLSO2lY8UuZTW9pQqqbzgPrDhDBsmn9xdLi
X-Spam-Checker-Version: SpamAssassin 4.0.0
Bytes: 1826
Lines: 29

On Fri, 31 Jan 2025 14:55:05 +0000, Hans Bezemer wrote:
> First the preliminaries:
>
> : ;then postpone exit postpone then ; immediate
> : >zero dup xor ;
> : spin swap rot ;
>
> These are 4tH-ese, but I'm attached to them. ;-)
>                                      ( n1 n2 n3 n4 -- n5)
> : calc - >r - 100 r> spin */ ;
>
> : tri_mf4
>    >r rot r> swap >r spin            ( c b a R: x )
>    dup r@  >= if drop drop >zero rdrop ;then
>    over r@ >= over r@ < and if dup r> swap calc ;then drop
>    over r@ >= over r@ < and if over r> calc ;then
>    rdrop drop >zero
> ;
>

I studied this version you've prposed: tri_mf4.
I find it amazing, comprehensible (redibility) and very clever (compared
to mine tri_mf1 in the previous post).
Thanks a lot for it.

> Hans Bezemer

Ahmed

--