🚀 go-pugleaf

Last evening, we tried the Savage Benchmark with APL.68000 on the
AtariST.  We did two tests.  The first test, F1, is given by:  (*)

	i IS IOTA 2500
	+/ABS i - TAN ATAN EXP LN ( i TIMES i ) * .5

and the second test, F2, is given by:

	i IS 0                    
	a IS 1                    
	LP: a IS 1 + TAN ATAN EXP LN ( a TIMES a ) * .5
  	GO (2499 < i IS i+1) /LP       
	a-2500                 

The results are:
	Function  	Time  		Value

	F1		119.480		 5.867098224E-7         
	F2		181.700		-5.646261343E-7        

Comment:
Function F2 is the "Savage benchmark", in which there is a loop in the
program, and in each pass through the loop, the value of A is found by
by the same sequence of steps given by Bill Savage in his Dr. Dobb's
article.  Function F1 is similar, but it creates the vector of integers
from 1 to 2500, and then does vector operations, exploiting the
internal APL compiled loops.  To preserve the spirit of the benchmark,
the error was accumulated, by adding the absolute values of all the
deviations.  This executed in about two thirds the time.

(*) Keywords: 
Here we use keywords to describe the APL symbols that actually
appear in the programs.  A transfer form is available for those
who wish to receive a copy.

 CSNet: dickey@case.csnet
 ARPA:	dickey%case@csnet-relay.arpa
 UUCP:	...!{decvax,cbosgd,cbatt,sun}!cwruecmp!dickey