WebSVN – programming – Diff – /lisp/hw11.script

 ;; Loading file hw11.lisp ...
 ;; Loaded file hw11.lisp
+T
 [2]> (poly)
-(i0) (2 x ^ 2 + 5 x + 2)
+(i0) (x ^ 2 + 3)
 (o0)
- + 2 x  + 5 x + 2
+ + 1 x  + 3
-(i1) (5 x ^ 3 + 8)
+(i1) (x - 5)
 (o1)
- + 5 x  + 8
+ + 1 x - 5
 (i2) (+ i0 i1)
 (o2)
-2
- + 5 x  + 2 x  + 5 x + 10
+ + 1 x  + 1 x - 2
-(i3) (+ i1 i0)
+(i3) (- i0 i1)
 (o3)
-2
- + 5 x  + 2 x  + 5 x + 10
+ + 1 x  - 1 x + 8
-(i4) (- i0 i1)
+(i4) (* i0 i1)
 (o4)
 2
- - 5 x  + 2 x  + 5 x - 6
+ + 1 x  - 5 x  + 3 x - 15
-(i5) (- i1 i0)
+(i5) (x - 1)
 (o5)
-2
- + 5 x  - 2 x  - 5 x + 6
-(i6) (* i0 i1)
+ + 1 x - 1
+(i6) (x ^ 3 + x ^ 2 + x + 1)
 (o6)
-4       3       2
+2
- + 10 x  + 25 x  + 10 x  + 16 x  + 40 x + 16
+ + 1 x  + 1 x  + 1 x + 1
-(i7) (* i1 i0)
+(i7) (* i5 i6)
 (o7)
-4       3       2
- + 10 x  + 25 x  + 10 x  + 16 x  + 40 x + 16
+ + 1 x  - 1
-(i8) (x ^ 2 + 3)
+(i8) (x - 5)
 (o8)
- + 1 x  + 3
-(i9) (x - 5)
-(o9)
  + 1 x - 5
+(i9) (x ^ 2 + 5 x + 25)
+(o9)
+ + 1 x  + 5 x + 25
-(i10) (+ i8 i9)
+(i10) (* i8 i9)
 (o10)
+ + 1 x  - 125
+(i11) (x + 1)
+(o11)
+ + 1 x + 1
+(i12) (x + 2)
+(o12)
+ + 1 x + 2
+(i13) (x + 3)
+(o13)
+ + 1 x + 3
+(i14) (* i11 i12)
+(o14)
+ + 1 x  + 3 x + 2
+(i15) (* i14 i13)
+(o15)
+2
+ + 1 x  + 6 x  + 11 x + 6
+(i16) (2 x + 1)
+(o16)
+ + 2 x + 1
+(i17) (3 x + 1)
+(o17)
+ + 3 x + 1
+(i18) (* i11 i16)
+(o18)
- + 1 x  + 1 x - 2
+ + 2 x  + 3 x + 1
+(i19) (* i18 i17)
+(o19)
+2
+ + 6 x  + 11 x  + 6 x + 1
-(i11) quit
+(i20) quit
 NIL
 [3]> (bye)
 irasnyd@duallie lisp $

Subversion Repositories programming