perm filename TRIANG.TIM[TIM,LSP]13 blob sn#759502 filedate 1984-06-26 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00014 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 AAM Puzzle
C00004 00003	 Triang
C00005 00004	 NIL
C00006 00005	 SCORE, Dec 29, 1983
C00007 00006	 InterLisp Vax 780
C00008 00007	 PSL-20 3.3
C00009 00008	 PSL-Cray 3.2
C00010 00009	 PSL-750 3.2
C00011 00010	 PSL-780 3.2
C00012 00011	 PSL-DN600 3.2
C00013 00012	 PSL-DN300 3.2
C00014 00013	 PERQ 6/20/84
C00015 00014	 DEC Common Lisp
C00016 ENDMK
CāŠ—;
; AAM Puzzle
(fasload triang)
(timit)
Timing performed on Saturday 05/29/82 at 03:16:47.
Cpu Time = 98.101
Elapsed Time = 153.4
Wholine Time = 138.183332
GC Time = 6.803
Load Average Before  = 0.220208287
Load Average After   = 0.802041054
Average Load Average = 0.51112467
NIL 
Timing performed on Saturday 05/29/82 at 03:20:11.
Cpu Time = 98.095
Elapsed Time = 145.666666
Wholine Time = 130.733334
GC Time = 1.053
Load Average Before  = 0.56515789
Load Average After   = 0.893422365
Average Load Average = 0.72929013
NIL 
;;; New SAIL
Timing performed on Wednesday 10/12/83 at 23:10:22.
Cpu (- GC) Time = 86.029
Elapsed Time = 413.183334
Wholine Time = 144.9
GC Time = 6.345
Load Average Before  = 1.7579943
Load Average After   = 2.95534134
Average Load Average = 2.35666782
NIL 
;;; Triang

D3 7/5/83
Display up, Common Lisp arrays
Elapsed	252.0
GC	.212
CPU	252.0
pgflts	28
swpwrts	10

D2
Without Interrupts, Common Lisp array
Elapsed	1510.0
GC	.703
CPU	1510.
pgflts	28

D3 7/5/83
Display up, Interlisp arrays
Elapsed	676.0
GC	.181
CPU	.676
pgflts	32

D1
1/25/84 with interrupts CMLArrays
Elapsed	858.0
Swap	  1.31
CPU	856.0
GC	   .462
;;; NIL
TRIANGLE

Fixnum arithmetic.  Named arrays turned into vectors (1-d arrays),
in special variables; e.g.,
(defparameter *b*
  (make-array 37))
and all the references turned to AREF, STORE to SETF.  FILLARRAY in setups
turned to REPLACE (there was one fewer element in the list than in the
array!).  (cdr (listarray 'sequence)) turns into
(replace (make-list (1-& sequence-length)) *sequence* :start2 1), and
sequence-length is defined with *sequence*, by
(defconstant sequence-length 14).
cpu=1791.88,elapsed=1797.71,pf=238

Try 2:  change AREF to SGVREF.
cpu=649.73,elapsed=652.35,pf=230
;;; SCORE, Dec 29, 1983
from triang.il0
standard interlisp arrays

11626 conses
2326.439 seconds cpu
1.125 seconds gc
;;; InterLisp Vax 780
Here are the missing benchmarks:
	
TRIANG:
ā†(TIME (TEST]
11635 conses
1122.4 seconds
T
;;; PSL-20 3.3

Triang test
Timing performed on DEC-20
23-Mar-84 05:12:03 .
........................................
Cpu (- GC) Time = 86.948 secs
Elapsed Time = 96.0 secs
GC Time = 0.0 secs
Load Average Before  = 1.2
Load Average After   = 1.1
Average Load Average = 1.15
;;; PSL-Cray 3.2
;;; Times are in milliseconds

 14:28:40 001:56.926 Triang test       
 14:29:57 002:16.273 Cpu (- GC) Time = 1.45426160e+04 secs     
 14:29:58 002:16.794 Elapsed Time = 0. secs    
 14:30:00 002:17.314 GC Time = 0. secs 
 14:30:02 002:17.834 Load Average Before  = 0  
 14:30:03 002:18.354 Load Average After   = 0  
 14:30:05 002:18.875 Average Load Average = 0. 
;;; PSL-750 3.2

Cpu (- GC) Time = 523.192 secs
Elapsed Time = 0.0 secs
GC Time = 0.0 secs
Load Average Before  = 0
Load Average After   = 0
Average Load Average = 0.0
;;; PSL-780 3.2

Cpu (- GC) Time = 212.194 secs
Elapsed Time = 0.0 secs
GC Time = 0.0 secs
Load Average Before  = 0
Load Average After   = 0
Average Load Average = 0.0
;;; PSL-DN600 3.2

Cpu (- GC) Time = 416.47 secs
Elapsed Time = 0.0 secs
GC Time = 0.0 secs
Load Average Before  = 0
Load Average After   = 0
Average Load Average = 0.0
;;; PSL-DN300 3.2

Cpu (- GC) Time = 439.902 secs
Elapsed Time = 0.0 secs
GC Time = 0.0 secs
Load Average Before  = 0
Load Average After   = 0
Average Load Average = 0.0
;;; PERQ 6/20/84

1845.00 seconds (stopwatch)
;;; DEC Common Lisp

*************************************************************************
Name of		VAXLisp		VAXLisp		VAXLisp		VAXLisp
application	U1.0-20		U1.0-20		U1.0-20		U1.0-20
Benchmark	VMS V3.5	VMS V3.5	VMS V3.5	VMS V3.6
		730 (No FPA)	750 (No FPA)	780		785 (No FPA)
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------

Triang		2865.87		1021.35		660.78		452.82