55 lines
2.2 KiB
Plaintext
55 lines
2.2 KiB
Plaintext
(FILECREATED "21-Jan-87 10:32:00" ("compiled on " {QV}<PEDERSEN>BENCHMARKS>DDERIV.;5)
|
||
"21-Jan-87 02:12:20" tcompl'd in "Xerox Lisp 21-Jan-87 ..." dated "21-Jan-87 03:58:21")
|
||
(FILECREATED " 7-Nov-85 01:03:40" {QV}<PEDERSEN>BENCHMARKS>DDERIV.;5 4118 changes to: (FNS RUN-DDERIV
|
||
INIT-DDERIV DDERIV PLUS.DERIV DIFFERENCE.DERIV TIMES.DERIV QUOTIENT.DERIV DER1-DDERIV DER1 DERIV RUN
|
||
DDERIV-DER1 DDERIV-DERIV) (VARS DDERIVCOMS) previous date: "11-FEB-83 14:21:49"
|
||
{QV}<PEDERSEN>BENCHMARKS>DDERIV.;1)
|
||
INIT-DDERIV §D4
|
||
NIL o ‰dg
|
||
¿µõh (12 HEADIFY)
|
||
(9 DERIV)
|
||
( 3 (PLUS DIFFERENCE TIMES QUOTIENT))
|
||
RUN-DDERIV §D4
|
||
NIL : kXnèó‘ho ¿o ¿o ¿o ¿o ¿HkÔ°Í (50 DDERIV 42 DDERIV 34 DDERIV 26 DDERIV 18 DDERIV)
|
||
NIL
|
||
( 47 (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5) 39 (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5)
|
||
31 (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5) 23 (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5)
|
||
15 (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5))
|
||
DDERIV §D4
|
||
(L (0 EXP)) - @d˜dl
|
||
š¿@g ð‘kjg
|
||
H–@kHg (27 GETP 8 \TYPEMASK.UFN)
|
||
(42 ERROR 24 DERIV 14 X)
|
||
()
|
||
QUOTIENT.DERIV §D4
|
||
(L (0 EXP)) 5 g g @ @hg @g @@@ hhh (37 DDERIV 10 DDERIV)
|
||
(25 TIMES 20 QUOTIENT 5 QUOTIENT 2 DIFFERENCE)
|
||
()
|
||
TIMES.DERIV §D4
|
||
(L (0 EXP)) - g d@g 0@°d ¸IµHhZ<>H&¹µíJh (19 DER1-DDERIV)
|
||
(8 PLUS 2 TIMES)
|
||
()
|
||
DIFFERENCE.DERIV §D4
|
||
(L (0 EXP)) # g 0@°d ¸IµHhZ<>H&¹µíJ (13 DDERIV)
|
||
(2 DIFFERENCE)
|
||
()
|
||
PLUS.DERIV §D4
|
||
(L (0 EXP)) # g 0@°d ¸IµHhZ<>H&¹µíJ (13 DDERIV)
|
||
(2 PLUS)
|
||
()
|
||
DER1-DDERIV §D4
|
||
(L (0 EXP)) g @ @h (6 DDERIV)
|
||
(2 QUOTIENT)
|
||
()
|
||
HEADIFY §D4
|
||
(L (1 PROP 0 X)) @ÁÉ AH ´@ÁA@A
|
||
H h (23 GETP)
|
||
NIL
|
||
()
|
||
(PRETTYCOMPRINT DDERIVCOMS)
|
||
(RPAQQ DDERIVCOMS ((FNS INIT-DDERIV RUN-DDERIV DDERIV QUOTIENT.DERIV TIMES.DERIV DIFFERENCE.DERIV
|
||
PLUS.DERIV DER1-DDERIV) (PROP DERIV QUOTIENT TIMES DIFFERENCE PLUS) (FNS HEADIFY) (* * Call (
|
||
INIT-DDERIV) then (RUN-DDERIV)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T))))
|
||
(PUTPROPS QUOTIENT DERIV QUOTIENT.DERIV)
|
||
(PUTPROPS TIMES DERIV TIMES.DERIV)
|
||
(PUTPROPS DIFFERENCE DERIV DIFFERENCE.DERIV)
|
||
(PUTPROPS PLUS DERIV PLUS.DERIV)
|
||
(PUTPROPS DDERIV COPYRIGHT ("RPG" 1983 1985))
|
||
NIL
|