Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #17162

Re: GA144 and test the new word "asd" : speed test

Show all headers | View raw

On 11/7/2012 2:49 AM, emmanuel wrote:
> Hi David,
>
> it's interesting but  you can't use a literal in a unext loop (see the answer to rickman , thank's a lot).
> the new word like this seem working :
>
> :asd 1000 for 1000 for dup dup or drop next next ;
>
>
> cheers
>
> Emmanuel

If you wanted to optimize this for speed in the way Chuck would do it, 
try this...

: asd 1000 dup dup dup dup dup dup dup dup  \ nearly fill stack
     for for dup or drop unext next ;

This may be different from the benchmark, but it will give you the 
fastest speed and is valid in the sense of measuring the time for the 
fastest loop possible with this machine.  The only thing that would 
speed this code is to reduce the code inside the inner loop.  Also note 
that the code in the inner loop can't be any longer either... you can 
only have four instructions including the unext.

Rick

Back to comp.lang.forth | Previous | Next — Previous in thread | Find similar | Unroll thread

Thread

GA144 and  test the new word "asd"  :  speed test emmanuel <emmanuel.said@cern.ch> - 2012-10-31 12:38 -0700
  Re: GA144 and  test the new word "asd"  :  speed test Howerd <howerdo@yahoo.co.uk> - 2012-11-01 01:13 -0700
  Re: GA144 and  test the new word "asd"  :  speed test rickman <gnuarm@gmail.com> - 2012-10-31 21:29 -0400
    Re: GA144 and  test the new word "asd"  :  speed test "Ed" <invalid@nospam.com> - 2012-11-03 15:42 +1100
  Re: GA144 and  test the new word "asd"  :  speed test David Stubbs <stubbsd@genialgenetics.com> - 2012-11-06 23:28 -0800
    Re: GA144 and  test the new word "asd"  :  speed test emmanuel <emmanuel.said@cern.ch> - 2012-11-06 23:49 -0800
      Re: GA144 and  test the new word "asd"  :  speed test rickman <gnuarm@gmail.com> - 2012-11-08 10:12 -0500

csiph-web