Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!elroy.jpl.nasa.gov!decwrl!pa.dec.com!nntpd.lkg.dec.com!slot!adler
From: adler@slot.enet.dec.com (Mark Adler)
Newsgroups: comp.lang.lisp
Subject: Re: isqrt
Message-ID: <23210@shlump.lkg.dec.com>
Date: 6 Jun 91 12:08:02 GMT
References: <19910606055232.5.GADBOIS@KISIN.ACA.MCC.COM>
Sender: newsdaemon@shlump.lkg.dec.com
Reply-To: adler@slot.enet.dec.com (Mark Adler)
Organization: Digital Equipment Corporation
Lines: 139

Here are the results I got on a DECsystem 3100 using Lucid Common Lisp.
By the way, when I compiled the code in production mode,
the isqrt time went to zero.  I assume that the compiler "optimized" the
calculation out of existence, presumably since the value was not used.
(This probably also explains the Syumbolics results reported in close to
zero time.)


;;; Lucid Common Lisp/DECsystem
;;; Development Environment Version 4.0, 12 November 1990
;;; Copyright (C) 1985, 1986, 1987, 1988, 1989, 1990 by Lucid, Inc.
;;; All Rights Reserved
;;;
;;; This software product contains confidential and trade secret information
;;; belonging to Lucid, Inc.  It may not be copied for any reason other than
;;; for archival and backup purposes.
;;;
;;; Lucid Common Lisp is a trademark of Lucid, Inc.
;;; DECsystem is a trademark of Digital Equipment Corp.

Lisp> (isqrt-time-comparison (* 2 (expt 10 2000)) 1 1)

"do nothing" 
Elapsed Real Time = 0.03 seconds
Total Run Time    = 0.00 seconds
User Run Time     = 0.00 seconds
System Run Time   = 0.00 seconds
Process Page Faults    =          1
Dynamic Bytes Consed   =          0
Ephemeral Bytes Consed =        840

"fast-isqrt-mid1" 
Elapsed Real Time = 2.46 seconds
Total Run Time    = 2.36 seconds
User Run Time     = 2.34 seconds
System Run Time   = 0.02 seconds
Process Page Faults    =          2
Dynamic Bytes Consed   =          0
Ephemeral Bytes Consed =     21,616

"fast-isqrt-rec" 
Elapsed Real Time = 0.59 seconds
Total Run Time    = 0.55 seconds
User Run Time     = 0.55 seconds
System Run Time   = 0.00 seconds
Process Page Faults    =          1
Dynamic Bytes Consed   =          0
Ephemeral Bytes Consed =     10,256

"isqrt" 
Elapsed Real Time = 12.18 seconds
Total Run Time    = 11.68 seconds
User Run Time     = 11.54 seconds
System Run Time   = 0.14 seconds
Process Page Faults    =         57
Dynamic Bytes Consed   =          0
Ephemeral Bytes Consed = 10,502,096
There were 20 ephemeral GCs
NIL
Lisp> (isqrt-time-comparison (* 2 (expt 10 6000)) 1 1)

"do nothing" 
Elapsed Real Time = 0.00 seconds
Total Run Time    = 0.00 seconds
User Run Time     = 0.00 seconds
System Run Time   = 0.00 seconds
Process Page Faults    =          1
Dynamic Bytes Consed   =          0
Ephemeral Bytes Consed =      2,496

"fast-isqrt-mid1" 
Elapsed Real Time = 24.14 seconds
Total Run Time    = 23.91 seconds
User Run Time     = 23.87 seconds
System Run Time   = 0.04 seconds
Process Page Faults    =          1
Dynamic Bytes Consed   =          0
Ephemeral Bytes Consed =     74,088

"fast-isqrt-rec" 
Elapsed Real Time = 4.77 seconds
Total Run Time    = 4.72 seconds
User Run Time     = 4.71 seconds
System Run Time   = 0.01 seconds
Process Page Faults    =          0
Dynamic Bytes Consed   =          0
Ephemeral Bytes Consed =     30,872

"isqrt" 
Elapsed Real Time = 97.92 seconds (1 minute, 37.92 seconds)
Total Run Time    = 96.18 seconds (1 minute, 36.18 seconds)
User Run Time     = 95.85 seconds (1 minute, 35.85 seconds)
System Run Time   = 0.33 seconds
Process Page Faults    =        105
Dynamic Bytes Consed   =          0
Ephemeral Bytes Consed = 93,533,248
There were 179 ephemeral GCs
NIL
Lisp> (isqrt-time-comparison (* 2 (expt 10 20000)) 1 1)

"do nothing" 
Elapsed Real Time = 0.00 seconds
Total Run Time    = 0.00 seconds
User Run Time     = 0.00 seconds
System Run Time   = 0.00 seconds
Process Page Faults    =          0
Dynamic Bytes Consed   =          0
Ephemeral Bytes Consed =      8,312

"fast-isqrt-mid1" 
Elapsed Real Time = 291.34 seconds (4 minutes, 51.34 seconds)
Total Run Time    = 285.04 seconds (4 minutes, 45.04 seconds)
User Run Time     = 283.89 seconds (4 minutes, 43.89 seconds)
System Run Time   = 1.16 seconds
Process Page Faults    =         22
Dynamic Bytes Consed   =          0
Ephemeral Bytes Consed =    262,072
There was 1 ephemeral GC

"fast-isqrt-rec" 
Elapsed Real Time = 70.17 seconds (1 minute, 10.17 seconds)
Total Run Time    = 69.63 seconds (1 minute, 9.63 seconds)
User Run Time     = 69.54 seconds (1 minute, 9.54 seconds)
System Run Time   = 0.09 seconds
Process Page Faults    =          3
Dynamic Bytes Consed   =          0
Ephemeral Bytes Consed =    113,392

"isqrt" 
Elapsed Real Time = 1068.20 seconds (17 minutes, 48.20 seconds)
Total Run Time    = 1055.11 seconds (17 minutes, 35.11 seconds)
User Run Time     = 1052.86 seconds (17 minutes, 32.86 seconds)
System Run Time   = 2.25 seconds
Process Page Faults    =        381
Dynamic Bytes Consed   =    223,568
Ephemeral Bytes Consed = 1,035,828,048
There were 1989 ephemeral GCs
NIL
Lisp>