Sujet : Re: Average of a [stack]
De : melahi_ahmed (at) *nospam* yahoo.fr (ahmed)
Groupes : comp.lang.forthDate : 11. Jul 2024, 13:30:49
Autres entêtes
Organisation : novaBBS
Message-ID : <bc0623489b27ee52a13215b1a3c64360@www.novabbs.com>
References : 1 2 3 4 5 6 7
User-Agent : Rocksolid Light
On Thu, 11 Jul 2024 10:11:27 +0000, minforth wrote:
Non standard
: FSAVG fdepth dup 1- FOR f+ NEXT s>f f/ ;
Tested it with gforth, it crashed the system.
I added 0e in the definition
: FSAVG fdepth 0e dup 1- FOR f+ NEXT s>f f/ ;
and it worked
1e 2e 3e 4e fsavg f. 2.5 ok
Ahmed
Re: Average of a [stack]
Re: Average of a [stack]