Re: [gforth] my vsum function is suspiciously non-local

[Carsten Strotmann (private)]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Hello Elko,

I agree it looks better, but unfortunatly I mostly need to work on Fort
systems that do not have local variables, so I avoid them to keep my
programs portable. But that's just me.

- -- Carsten

On 3/7/10 8:04 PM, Elko Tchernev wrote:
> A solution without locals is sometimes less readable than desired. This
> version looks better, I think:
> 
> : vsum { addr n -- sum }
>     0                           \ the initial counter
>     addr n CELLS +  addr        \ the ending and starting addresses
>     ?DO                         \ don't do it if n was 0; negative OK
>         I @ +                   \ add to the cumulative
>     1 CELLS +LOOP
> ;
> 
> 
-----BEGIN PGP SIGNATURE-----
Version: GnuPG/MacGPG2 v2.0.14 (Darwin)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org/

iEYEARECAAYFAkuUABYACgkQsUJ3c+pomYFehQCbBvZ6ECKaE43dyqS5TWlAKAsW
jQ0AnAwKsxpxAhiS+eQE5ftCjQpogiex
=5aAk
-----END PGP SIGNATURE-----