Sujet : Re: "Back & Forth" - Local variables
De : dxforth (at) *nospam* gmail.com (dxf)
Groupes : comp.lang.forthDate : 09. Jan 2025, 12:09:06
Autres entêtes
Organisation : i2pn2 (i2pn.org)
Message-ID : <9747ef2be5ee93d6a4f0c89352a38cec72624609@i2pn2.org>
References : 1 2 3 4
User-Agent : Mozilla Thunderbird
On 9/01/2025 9:50 am, dxf wrote:
On 9/01/2025 5:11 am, Hans Bezemer wrote:
On 08-01-2025 17:27, albert@spenarnc.xs4all.nl wrote:
>
( my CO variant, using the return address)
>
: LOCAL R> SWAP DUP >R @ >R EXECUTE R> R> ! ;
>
VARIABLE A
VARIABLE B
>
\ I'm paranoid :)
>
8 a !
7 b !
>
: divide
A LOCAL
B LOCAL
B ! A ! A @ B @ /
. CR
;
>
15 3 divide a ? b ?
\ it doesn't mean they're not out to get you
>
Wow! This works! Can't say how solid it is.. but still!
Alas not portable.
...
More portable
: (lx) >R ;
: LOCAL R> SWAP DUP >R @ >R (lx) R> R> ! ;
VARIABLE A
VARIABLE B
8 A !
7 B !
: divide ( a b -- )
A LOCAL
B LOCAL
B ! A ! A @ B @ /
. CR
;
15 3 divide A ? B ?
"Back & Forth" - Local variables
Re: "Back & Forth" - Local variables
