Forums before death by AOL, social media and spammers... "We can't have nice things"
| comp.lang.forth | Forth programmers eat a lot of Bratwurst | 117,927 messages |
[ << oldest | < older | list | newer > | newest >> ]
| Message 116,546 of 117,927 |
| Hans Bezemer to B. Pym |
| Re: Average of a list |
| 07 Jun 24 13:40:14 |
From: the.beez.speaks@gmail.com
On 06-06-2024 05:31, B. Pym wrote:
> SP-Forth:
>
> REQUIRE list-all ~ygrek/lib/list/all.f
> list ALSO!
> REQUIRE CASE-INS lib/ext/caseins.f
>
> 0 0
> %[ 10 % 20 % 30 % 40 % 50 % 60 % 70 % 80 % 90 % ]%
> :noname ( sum count n -- sum2 count2 ) 1 d+ ;
> iter
> / .
>
> ===>
> 50
>
include lib/sequence.4th
{ 10 20 30 40 50 60 70 80 90 } dup sum over length / . cr free
---8<---
$ pp4th -x clf240607.4th
50
---8<---
Hans Bezemer
--- SoupGate-Win32 v1.05
* Origin: you cannot sedate... all the things you hate (1:229/2)
|
(c) 1994, bbs@darkrealms.ca